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ABSTRACT 



This report contains user instructions and program listings 
for a Loran-C position determination algorithm for use on an 
Hewlett-Packard HP-75C, a Sharp PC-1500 (Radio Shack TRS-80 PC-2) 
and a Radio Shack Model 100 portable computers. 



I. INTRODUCTION 



This report contains a Loran-C position determination program 
for each of the following portable computers: the Hewlett-Packard 
HP-75C/ the Sharp PC-1500 (Radio Shack TRS-80 PC-2) and the Radio 
Shack) TRS-80 Model 100. These programs are part of a set that has 
been developed for a portable computer evaluation. 

The Loran system is a radio aid to navigation which utilizes 
the principle of hyperbolic fixing. The locus of points for which 
the difference in arrival time of synchronized signals from a pair 
of transmitters is constant determines a hyperbolic line of 
positions. The intersection of two hyperbolic lines of position 
from two pairs of stations determines a hyperbolic fix. That two 
pairs of stations are required for a fix does not necessarily mean 
that there are four separate stations, for one station of one pair 
may be colocated with one station of the other pair forming a 
Loran triplet . Triplets may be joined "end-to-end" by station 
colocation to form a Loran chain . Loran chains are common on both 
the East and West coasts of the North American continent. 

The present day Loran-C operates at 100-kHz and is in use in 
the Atlantic, Pacific and Mediterranean areas. The computational 
programs described herein can be used for position determination 
with Loran-C triplets. Further information on the history, 
development and operation of the Loran systems may be found in 
References 1 and 2. Details of the fixing algorithm can be found 
in Reference 3. 
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In the programs presented here, there are ten user options. 
The computer display abbreviations for the option names and their 
definitions are listed below. 

1. LORAN FIX . This fixing routine is the main program for 
calculating a LORAN-C fix from indicated time delays (ITDs) . 

2. ALTERNATE SOLN . The alternate solution routine will allow 
the second LORAN-C fix solution to be computed. This routine 
toggles an alternate solution flag so that on subsequent 
fixes Option 1 will calculate the alternate solution. 

3. INPUT PEST LAT/LONG . This option is used to store the 
latitude and longitude of a destination. 

4. HEAD & DIST TO PEST . This option is used to compute the 
heading and distance from the correct fix to the destination 
stored by Option 3. 

5. PREDICT ITDs . This option may be used to predict the 
station ITDs that will be received at a given latitude and 
longitude. 

6. TWO POINT HEAD & DIST . This option is similiar to Option 4 
except that it may be used to compute the heading and 
distance from any origin to any destination. 

7. CALIBRATE . Given the latitude and longitude of a benchmark 
position and the indicated time delays from a LORAN-C 
triplet received at the benchmark position, the stored 
station data are modified so that the fix routine (or . 
alternate solution routine) will compute the known position 
from the same time delays. 
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. NEW STA. IDs . This option is used to load the two station 
pairs being received by requesting the group repetition 
interval (GRI) identifier. 

9. ASF Corrections . When a portion of the propagation path 

lies over land, the additional secondary factor (ASF) should 
be included in the observed time delay if precision 
navigation is required. This option allows the user to input 
the ASF correction [Ref. 4, 5]. 

A. STOP . This option will exit from the LORAN-C routine. 



An additional HELP option (H) is available in the Hewlett- 
Packard HP-75C and Sharp PC-1500 (TRS-80 PC-2) computers. This 
option will review the ten options in the display. The Radio Shack 
TRS-80 Model 100 does not have this option because all ten options 
can be displayed simultaneously. 
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II. THE HEWLETT-PACKARD HP-75C. 



HP-75C USER INSTRUCTIONS. 



The options are labeled 1 through 9, A or H. The H (Help) option 
will review options 1 - 9 & A. Option 6 (TWO POINT HEAD & DIST) is 
a stand-alone option which may be used by itself. For LORAN 
fixing. Option 8 must be selected first to load the station GRI’s. 
If Option 8 is not used, then any option requiring the GRI ' s will 
automatically enter Option 8 first. Option 1 (LORAN FIX) must be 
selected at least once before Option 2 (ALTERNATE SOLN) can be 
selected. Once the GRI ' s are loaded, any of the remaining options 
may be used at any time. When first run, the ASF Correction 
Factors are set to zero; if they are subsequently entered as 
non-zero values they will remain set until either changed 
manually, by selection of Option 9, or until the program is RUN 
once more. In all cases. South latitudes and East longitudes must 
be negative for input and will be labeled by a minus sign on 

output. For ease of reference the options are listed by number 



rather than by 


sequence of selection. 




INSTRUCTION 
Run Program 
1. LORAN FIX 




DISPLAY 

NEXT OPTION (Help) ? 


INPUT 

Run "LORAN" 
1 


ITD for 1st 


GRI 


ITD FOR ari 1? 


1st ITD [RTN] 


ITD for 2nd 


GRI 


ITD FOR a.Ll_Z? 


2nd ITD [RTN] 


Lat of fix 




LAT = dd®mm'ss" 


[RTN] 


Long of fix 




LONG = ddd°mm'ss" 
NEXT OPTION (Help) ? 


[RTN] 


2. ALTERNATE SOLN 




2 


Lat of fix 




LAT = dd°mm'ss" 


[RTN] 


Long of fix 




LONG = ddd°mm'ss" 
NEXT OPTION (Help) ? 


[RTN] 



3. INPUT DEST LAT/LONG 

DEST LAT dd.mmss? 
DEST LONG ddd.mmss? 
NEXT OPTION (Help)? 



4. HEAD & DIST TO DEST 

Heading to dest. HEADING = dd°mm'ss" 
Dist. to dest. DISTANCE = mmm.ff n.mi. 

NEXT OPTION (Help) ? 



3 

Lat of dest. 
[RTN] 

Long of dest. 
[RTN] 



4 

[RTN] 

[RTN] 
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HP-75C USER INSTRUCTIONS (cont.) 



INSTRUCTION 



DISPLAY 



5. PREDICT ITDs 

LAT dd.mmss? 

LONG ddd.mmss? 

1st ITD ITD FOR ari 1 = 

xxxxx.xx ys 

2nd ITD ITD FOR ari 2 = 

xxxxx.xx ys 
Hew Lat/Lon or 
Return to menu N 

R 

NEXT OPTION (Help)? 

6. TWO POINT HEAD & DIST 

ORIGIN LAT dd.mmss? 

ORIGIN LONG ddd.mmss? 



DEST LAT dd.mmss? 
DEST LONG ddd.mmss? 



Heading to dest. 
Dist. to dest. 



7. CALIBRATE 



8. NEW STA. IDs 



9. ASF Corrections 



A. STOP 



HEADING = dd°mm'ss" 
DISTANCE = mmm.ff n.mi. 
NEXT OPTION (Help)? 



LAT dd.mmss? 

LONG ddd.mmss? 

ITD FOR ari 1 ? 

ITD FOR ari 2 ? 

NEXT OPTION (Help) ? 



1st GRI? 

2nd GRI? 

NEXT OPTION (Help)? 



ASF FOR gri 1 ? 

ASF FOR ari 2 ? 

NEXT OPTION (Help) ? 



> 
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INPUT 

5 

Lat [RTN] 

Long [RTN] 

[RTN] 

[RTN] 

repeats Option 5 
goes to next line 



6 

Lat of origin 
[RTN] 

Long of origin 
[RTN] 

Lat of dest. 
[RTN] 

Long of dest. 
[RTN] 

[RTN] 

[RTN] 



7 

Lat of fix [RTN] 
Long of fix [RTN] 
1st ITD [RTN] 

2nd ITD [RTN] 



8 

Sta. ID [RTN] 
Sta. ID [RTN] 



9 

1st ASF [RTN] 
2nd ASF [RTN] 



A 



HP-75 C SAMPLE PROBLEM 1 



You are sailing off of the coast of California, Your 
destination is Moss Landing at about 36°48'N and 121°47'W. Your 
present ITD from station pair GRI 9940W is 16019 and your ITD from 
station pair GRI 9940Y is 42585. What is your current position and 
what is the heading and distance from your current position to 
Moss Landing? We assume that the GRI ' s 9940W and 9940Y have not 
yet been loaded. 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



NEXT OPTION (lielp) ? 
DEST LAT dd.mmss? 
DEST LONG ddd.mmss? 



3 

36.48 [RTN] 
121.47 [RTN] 



Input destination. 
36°48' 
121°47 ' 



NEXT OPTION (iielp) ? 
1st GRI? 

2nd GRI? 



8 Input station ID's. 

9940W [RTN] 

9940Y [RTN] 



NEXT OPTION (Help) ? 
ITD FOR 9940W? 

ITD FOR 9940Y? 

LAT = 39°14 ’19" 

LONG = 115° 50 '52" 



1 

16019 

42585 

[RTN] 

[RTN] 



Compute a fix. 



Latitude of fix. 
Longitude of fix. 



This fix is in Nevada. There are always two 
solutions to the LORAN equations. The navigator 
must select the correct one. 



NEXT OPTION (Help) ? 2 

LAT = 35° 00 '01" [RTN] 

LONG = 125° 00 '09" [RTN] 



Select alternate soln. 
Latitude of fix. 
Longitude of fix. 



This fix is in the Pacific. The navigator 
knows it is the correct fix because of his 
estimate of where he should be. 



NEXT OPTION (Help)? 4 

HEADING = 54° 34 'll" [RTN] 

DISTANCE = 190.38 n.mi. [RTN] 



Find heading & distance 
to destination. 

Heading to Moss Landing. 
Distance to Moss Landing. 



NEXT OPTION (Help)? 



Repeat with new option 
or press A to quit. 



HP-75C SAMPLE PROBLEM 2 



How far, and in what direction, is Corvallis, Oregon 
(44°34'N, 123°16'W) from Cupertino, California (37°19'N, 
122° 02 'W) ? 



DISPLAY CONTENTS 



USER RESPONSE 



COMMENTS 



NEXT OPTION (iielp) ? 



6 



ORIGIN LAT dd.mmss? 
ORIGIN LONG ddd.mmss? 
DEST LAT dd.mmss? 

DEST LONG ddd.mmss? 
HEADING = 353 02 '59" 
DISTANCE = 438.32 n.mi. 



37.19 [RTN] 
122.02 [RTN] 
44.34 [RTN] 
123.16 [RTN] 
[RTN] 
[RTN] 



Two point distance 
and heading. 

37°19 ' 

122 ° 02 ' 

44° 34 ' 
123°16 ' 



NEXT OPTION (Help) ? 



Repeat with new option 
or press A to quit. 



HP-75C SAMPLE PROBLEM 3 



Suppose that you want to know what ITD's you would expect to 
receive at 35° North, 125° West and at 36°27' North, 126°54' West 
from 9940W and 9940Y. To determine these ITD's, proceed as follows 
(assume that the GRI's have been loaded as in Sample Problem 1): 



DISPLAY CONTENTS 



USER RESPONSE COMMENTS 



NEXT OPTION (Melp) ? 




5 


LAT dd.mmss? 






35 [RTN] 


LONG ddd.mmss? 






125 [RTN] 


ITD FOR 9940W = 


16019.35 


MS 


[RTN] 


ITD FOR 9940Y = 
Hew Lat/Lon or 


42584.71 


MS 


[RTN] 


Return 


to menu? 




N 


LAT dd.mmss? 






36.27 [RTN] 


LONG ddd.mmss? 






126.54 [RTN] 


ITD FOR 9940W = 


15572.32 


MS 


[RTN] 


ITD FOR 9940Y = 
Hew Lat/Lon or 


43006.15 


MS 


[RTN] 


Return to menu? 




R 



Predict ITD's. 
35° 

125° 



36° 27 ' 
126° 54 ' 



NEXT OPTION (Help) ? 



Repeat with new option 
or press A to quit. 



- 7 - 



HP-75C SAMPLE PROBLEM 4 



Suppose you are receiving an ITD of 16308 from 9940W and 
42800 from 9940Y. These ITD's would tell you that your location is 
36°47'55”N and 121°47'11"W. However, you know that your position 
is benchmarked to be at 36°47'36"N and 121°46'58"W, and you wish 
to calibrate your HP-75C so that the ITD's of 16308 and 42800 will 
give you the latter fix instead of the former. Proceed as follows 
(assume the GRI's have been loaded as in Sample Problem 1); 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



NEXT OPTION (Help)? 
LAT dd.mmss? 

LONG ddd.mmss? 

ITD FOR 9940W? 

ITD FOR 9940Y? 



7 

36.4736 [RTN] 
121.4658 [RTN] 
16308 [RTN] 
42800 [RTN] 



Calibrate . 

36° 47 '36" 
121°45 '58'' 



The station baselines have now been modified to 
achieve calibration. Now, reenter 16038 and 42800 into 
the fixing routine to test the calibration. Calibration 
does not modify the permanent station data stored in the 
HP-75C. The calibration remains effective until the 
GRI's are reloaded by Option 8. NOTE; The affect of 
calibration on the accuracy of fixes far removed from 
the benchmark has not been studied. The user should use 
the calibration option with caution. 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



NEXT OPTION (Help) ? 
ITD FOR 9940W? 

ITD FOR 9940Y? 

LAT = 36° 47 '35" 

LONG = 121° 46 '59" 



1 

16308 [RTN] 
42800 [RTN] 
[RTN] 
[RTN] 



Compute a fix. 



Lat of fix. 
Long of fix. 



The small discrepancy between this fix and the 
benchmark is due to assumptions in the fixing algorithm. 
If higher precision is required, the ASF Correction 
factor may be used (see Sample Problem 5). Note that you 
may need to use the Alternate Solution Option 2 if the 
fix obtained above is near 38°52'57"N and 116°51'11'W. 



DISPLAY CONTENTS USER RESPONSE COMMENTS 



NEXT OPTION (Help)? 



Repeat with new option 
or press A to quit. 



HP-75C SAMPLE PROBLEM 5 



Suppose you are receiving an ITD of 12153.31 microseconds 
from 9960W and 44451.83 microseconds from 9960Y. These ITD's would 
tell you that your location is 44°15'05"N and 67°25'23"W. Entering 
the ASF Correction Tables [Ref. 5,6] with these readings, the ASF 
Correction for GRI 9960W at 44°15'N and 67°25'W is 1.5 micro- 
seconds. Similiarly, the ASF Correction for GRI 9960Y at these 
coordinates is 2.7 microseconds. Enter these corrections into your 
HP-75C and recompute your position. (Load the GRI ' s 9960W and 
9960Y using Option 8) . 



DISPLAY CONTENTS 



USER RESPONSE 



COMMENTS 



NEXT OPTION (Help)? 
ASF FOR 9960W? 

ASF FOR 9960Y? 

NEXT OPTION (Help)? 
ITD FOR 9960W? 

ITD FOR 9940Y? 

LAT = 44° 15 '26" 

LONG = 67° 26 '26" 

NEXT OPTION (Help)? 



9 

1.5 [RTN] 

2.7 [RTN] 

1 

12153.31 [RTN] 
44451.83 [RTN] 
[RTN] 

[RTN] 



ASF Correction. 



Compute a fix. 



Repeat with new option 
or press A to quit. 



These ASF Corrections have been entered into the 
computer. The range of their validity must be checked 
with the ASF Correction tables and reentered if they 
change. NOTE: If you are using the ASF Correction Tables 
and if you wish to calibrate to a benchmark position, 
you should first enter the ASF Corrections for your 
benchmark and then use the calibration Option 7 (see 
Sample Problem 4). 
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HP-75C PROGRAM LISTING 



le RE*' LORftW-r ROUTINE, 
rev 07-08-83. 1330 HOURS 

20 H9=15 0 REH 0- 

RSTEP STATIONS 

30 OPTIOH WGLE RfiPIONS 

0 OPTION BPSE 1 

40 DEF FNR(X,H) = INT(H* 

X+.5)/H 

50 C0= 1/298. 2b 0 P0=-1 0 
Gl$=" 

60 DEF FNP(T) = 129.043S 
8-'T- . 40758+ . 00064576438* 

T 

70 DEF FNQ(T) = 2.741297 
9/T- . 0 1 1 402+ . 00032774624 

*T 

80 DISP 0 GOTO 120 
90 C4=FEYf 0 IF C$=- ' T^ 
EN 50 

100 C4=]jPRC*(C4) 0 FOP C 
=1 TO LEN(C0l.! 0 IF Ci=C 
OtIC.C] THEN DISP 0 PETU 
PK 

110 NEXT C 0 GOTO 90 
120 DISP -NEXT OPTION C 
,CHRF(200), 'eIp)P' 0 COt 
=M23456789PH- O GOSLIP ^ 
0 

130 ON C GOSUe 910,950,1 
010,1040,1090,990,1200,1 
90,1350,530,140 0 GOTO 1 
20 

140 IiISP -1 - LORPH FIX- 
0 DISP -2 - PLTERNPTE S 
OLN- 0 DISP -3 - INPUT H 
EST LPT/LONG- 
150 DISP -4 - HERD % DIS 
T TO BEST- 0 DISP ‘5 - P 
REDICT ITDs- 
160 DISP -6 - TUO POINT 
HERD t DIST- 0 DISP '7 - 
CRLIBRPTE- 

170 DISP -8 - NEW STP. I 
Ds- 0 DISP -9 - PSF Corr 
ect ions’ 0 DISP "P - STO 
P- 



180 RETURN 

182 REH OPT 8 

185 IF GltO-- THEN RETU 

RN 

190 FO^l 0 N=1 0 INPUT • 
1st GRP -ili 
200 GOSUB 380 0 GOSUB 39 
0 0 IF F0=2 THEN 198 
210 F0=1 0 N=2 0 INPUT * 
2nd GRP *, 14 0 GOSUB 3 
80 

220 IF P4=19t THEN GOSUB 
470 ELSE 240 
230 F F0=1 THEN 250 
240 GOSUB 390 0 IF F0=2 
THEN 210 

250 Fl=! 0 F2=I 0 IF Gl$ 
=G2$ THEN 300 
260 IF P<1,!>=P(1,2) PHD 
L(1,I)=LP,2) THEN 310 
270 F2=-l 0 IF P(l,n=P': 
2,2) PND L(1,1)=L(2,2) T 
HEN 310 

280 Fp-i 0 IF P(2,l>=P( 
2,2) PND L(2,1)=L(2,2) T 
HEN 310 

290 F2=l 0 F P(2,r>=P(l 
.2) RND L(2.!)=L(1,2) TH 
EN 310 

300 DISP -E. NO TRIPLET 
•;G!t.- t, *,024 0 GOSUB 
1370 0 GOTO 190 
310 FOP PI TO 2 0 PPP( 

1.1) 0 Ll=Ln,I) § P2=P( 

2.1) 0 L2=L(2,1) 

320 DISP 0 GOSUB 330 0 N 
EXT I 0 G(1)=0 0 G(2)=0 
0 RETURN 

330 GOSUB 658 0 B(D=S0 
0 Z(1,D=Z1 0 Z(2,I)=Z2 
340 T=21282.3593*S0 
350 IF T>=537 THEN P=FNP 
(T) 

360 IF T<537 THEN P=FNO-r 
T) 

370 T(1)=T+P 0 RETURN 
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HP-75C PROGRAM LISTING (cont.) 



3ee L=LEN(I$> 

L-1] » e*=l$[L.L) e B=NM 
B B$=CW?$(B-32*fB> 
90>) B RETURN 
390 H8-1 0 RESTORE 
400 REPF I9t,N0,P0,L0 0 

410 FOP J=1 TO H0 0 PEPB 
H0$,B9n),Pl(!),Lia) 0 
«i=H$tW0t 0 NEXT I 
420 IF 19$#0t THEN 450 
430 GOSUe 470 0 IF FPrJ 
THEN 460 
440 PETLIPH 

450 Ha=NP+! 0 IF H8'=H<5 
THEN 400 

460 FISP If,- IS HOT COT 
PLOCEF* 0 E0=2 0 GOSUP 1 
370 0 PETUPN 

470 FOP 1=1 TO N0 0 IE N 
fri,I)=e$ THEN 490 
480 NEXT I 0 E0r2 0 PETIJ 
PH 

490 IP N=1 THEN Gl$=!t 
500 IF H=2 THEN G2f=If 
510 F(N)=P9(r) 0 Pn,N'>^ 
EHP(PPF^FHH(P0>)) 0 in. 
N)=RR5(FNH(L0>) 

520 P(2,N)=FNP(RPF(FHH(’P 
HI))>> 0 L<2,H)=RPD(FNH 
(L1(I))'> 0 RETURN 
530 DISP 0 PUT CHR$a3) 

0 EHP 

540 REN DIR SOLH 
550 ZB=SIH(Zn 0 Z9=C0S( 
Zl) 0 P8=SIN(P1) 0 P9=C0 
S(P1) 0 H=-Z8*P9 0 C1=C0 
0 C2=C0»<l-fl»n)/4 
560 D=(1-C2)*(!-C2-C1*H'< 

0 P=C2*<l+Cl*«/2)/P 0 N 
=P9*Z9 

578 S1=«HGLE(P8,N> 0 D0= 
S0/D 0 U=2*(S1-D0) 0 H=1 
-2*P*C0S(U) 0 V=COS(U+D0 
) 



580 y=C2*C2*SlH(D0)»COS': 
Mrt(?#V*V-!)) 0 Y=2*P*V* 
H*S1H(P0> 

590 S2=P0*X-Y 0 S 8 -SIN(S 
2> 0 S9=C0S(S2) 0 K=SQP( 
H*N+(H*S9-P8*S8)''2) 

680 P2=PTH((P8*S9+N*S8)/ 
K) 

610 S3=PNGLE(P“*S9-P8*S8 
*Z9,-S8,*Z8) 

620 H=C!*n-C2>*S2-C!»C2 
*SB*C0S(S1+S1-S2) 0 L2=L 
1+S3-H 

630 22=PNGLFT-(N*S9-P8»S 
8 ^.-N> 0 PETUPN 
640 PEN REVERSE SOLH 
650 L3=L2-L1 0 P3=(P2-P1 
)/2 0 P4=(P1+P2>/2 
660 P6=S1H<P3> 0 P7=COS( 
P3> 0 P8=S1NEP4) 0 P9<n 
S(P4) 

670 w^P7*P7-pfi*P8 0 L=P 6 
♦P6+H*SINa3/2)*2 0 D0=2 
♦PSlN^SOPa)) 

680 U=2i>P8*P8*P7»P7/n-L 
) 0 v=2*P6*P6*P9*P9/L 0 
X=Li+v 0 Y=U-V 0 T=D 0 /S 1 N 
(P0) 0 p=4«T*T 

690 E=2*COS(P0) 0 P=I**E 
0 C=T-(P-E)/2 0 H1=X*EP+ 
C*X) 0 B=P+P 0 N2=Y*fB+E 
»Y) 0 N3=B*V*Y 
780 P2=C0*C0*fHl-N2+H3V 
64 0 Dl=C0*O*X-Y>/4 8 S 
8=(T-D1+D2)*SIH(D0) 

710 H=32*T-(28*T-P>*X-^6 
+4>*Y 

720 F=Y+Y-E*(4-X) 0 C=C0 
♦(T/2+C8*«/64) 0 e=-E»G* 
TPH(L3>/4 

730 L4=(L3^)/2 0 L 8 =SIN 
(L4) 0 L9=C0S(L4) 

748 T1=PNGLE(P9*L8,P6<L9 
) 0 T2=PKGLE(P8*L8,-P7*L 
9) 



- 11 - 



HP-75C PROGRAM LISTING (cont.) 



750 T9=PI+PI 0 zi=nor(Ti 
+T2,T9^ 0 Z2=H0D(T1-T2,T 
9) 0 PETIIRN 

760 RFH FIXING ROUTINE 
770 Pl=Fl*SIH(fi<D) 0 01 
=COS(P(l))-COS(B(D) 0 C 
1=SIH(B(D) 

780 P2=F2*SIN(P(2>) 0 B2 
=COS(P(2))-COS(B(2)) 0 C 
2=SIH(B(2)) 

790 E1=Z(1,1> 0 IF Fi=-l 
THEN E1=Z(2,1) 

800 E2=Z(1,2) 0 IF F2=-l 
THEN E2=Z(2..2> 

810 C=B!*C2*C0S(E2>-B2*C 
l*COS(El) 0 S=B1*C2*SIN(' 
E2>-B2*C!*SINfEl) 

820 X=B2>P1-B1*R2 0 P=SQ 
R(C*C+S*S) 0 G=PNGLE(C,S 
) 

830 Z=G+P0*PCOS(K/P> 0 S 
0=PHGLE(C2*COS(Z-E2>+P2. 
B3> 

848 IF F2=l THEN P!=Pa. 
2^ 0 L1=L(1.2) 

850 IF F2=-l THEN P!=P(2 
,2) 0 L1=L(2.2) 

860 Z1=Z 0 GOSUB 550 0 P 
0^2 0 L0=L2 0 P=PTN(TPN 
(P0)/(1-C0)) 

870 P=DEG(P) 0 L=nOD(DEG 
(L0),360) 0 IF L>180 THE 
N L=L-360 

880 PI=FND$IP) 0 L$=FHDt 
(L> 

890 DISP -LPT = -iPS 0 G 
OSUB 1370 0 BISP -LONG = 
•iU 0 GOSUB 1370 0 RET 
URN 

900 REN OPT 1 - COMPUTE 
FIX 

910 GOSUB 185 0 FOP 1=1 
TO 2 0 G>=G1J 0 IF 1=2 T 
HEN G$=G2< 



920 DISP -ITP FOR -,Gt: 

0 INPUT P 0 p=p+G( 

I>-B(I>-T(I) 0 IF PBS(P1 
<T<I> THEN 940 
930 BISP -E. ITD NOT VPL 
ID FOR -,G< 0 GOTO 928 
940 P(I)=P/21?95.8736 0 
NEXT I 0 GOSUB 770 0 PET 
URN 

950 IF P0=1 THEN P0=-1 0 
GOTO 965 
%0 P0=1 

965 IF Gl$=" THEN 910 
970 cosue 770 0 RETURN 
980 REM OPT 6 
990 INPUT ’ORIGIN LPT do 
.AMS'? P 0 INPUT ’ORI 
GIN LONG ddd.««ss? ‘ii 
1000 P0=FHP(PPD(FNH(P)>> 
0 L0=RPD(FNH(D) 0 GOSU 
B 1010 0 GOSUB 1040 0 PE 
TURN 

1010 INPUT -BEST LRT dd. 
whss? P 0 INPUT ’BEST 
LONG ddd.twss'^ ’;L 
1020 P5=FNP(PPD(FNH(P1>1 
0 L5=RPB(FNH(D) 0 PETU 
RN 

1030 REM OPT 4 
1040 P1=P0 0 L1=L0 0 P2= 
P5 0 L2=L5 0 GOSUB 650 
1050 Z=MOB(BEG(Z1),360) 

0 Zf=FNBI(Z) 

1060 DISP -HEPBING = ‘il 

1 0 GOSUB 1370 0 DISP ’B 
ISTPHCE = ’;FHR(3443.oi7 
•S0,100)i’ n.fti.* 

1070 COSUB 1370 0 RETURN 
1080 REM OPT 5 
1090 COSUB 185 0 GOSUB 1 
170 0 FOR r=l TO 2 0 19= 
T(r)+B(X) 

1100 P2=P(2,X) 0 L2=L(2. 
X) 0 GOSUB 650 0 1=3 0 G 
OSUB 340 0 I9=19+T(3T 
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HP-75C PROGRAM LISTING (cont.) 



1110 P2=P(l,\n 0 L 2 =L< 1 , 
K) 0 COSUB 650 0 1=3 0 G 
0SU8 340 0 I9=!9-T(3> 
1120 I4=G1* 0 IF K=2 THE 
H I$=G2I 

1130 BISP -ITP FOR -.ill, 
• =*;FM?a9,100),CHRI(12 
0 GOSUB 1370 0 HEX 
T F 

1140 BISP CHP$(206);’?v 
Ut/Lor> or ' ;CHRI(210> ^ • 
eturn to oenu'^" 0 C04='H 
P- 0 COSUP 90 
1150 IF C=! THEN 1090 
1160 PETUPH 

1170 IHPIIT -LOT dd.oflss'’ 
PI 0 IKPIJT -LOHG ddd 
*.L1 

11B0 Pl=FMfi(RPP(FNH(Pl)> 

> 0 L1=RPP(FHH(L1)) 0 PE 
TURN 

1190 PEH OPT 7 
1200 cosue 1B5 0 Gosue 1 
170 0 FOP K=! TO 2 0 It= 
GIF 0 IF F=? THEN It=G2F 
1210 BISP -ITB FOP -;lf. 

0 INPUT •'> *. 19 0 19=1 
9-IKF' 

1220 P2=P(2.r> 0 L2=L(2, 
F) 0 GOSUB 650 0 1=3 0 G 
OSUB 340 0 I9=19-T(3) 

1230 P2=P(1,F) 0 L2=L(1.. 
FT 0 GOSUB 650 0 1=3 0 G 
OSUB 340 0 T(FT=19+T(3)4 
G(F) 

1240 NEXT F 0 RETURN 
1250 BEF FHH(X) 

1268 S=SGN(X) 0 X=PBS(XT 
0 H=IHT(X) 0 V=FP(XT*10 
% ^ FNH=S*((100*FP(V)/60 
♦INT(V))/60+H> 

1270 END BEF 

1288 BEF FHP(X) = PTN((1 
-C0)*TPN(X)) 

1290 BEF FHBKX) 



1300 C*=- - 0 IF X<0 THE 
N C*=--- 

1310 X=PBS(X)+ 1/7200 0 X 
0=INT(X) 0 Ct=C$tSTP$(X0 
)iCHRl(l) 

1320 X=«0*(X-X0) 0 X0=IN 
T(X) 0 X»=STRFn00+X0> 0 
C»=C«X$[2,31f- 
1330 X=60*(X-X0> 0 X0=IN 
T(X) e XF=STMn00+X0) 0 
FHtF=CnXF[2.3]tCHP«f34 

1340 END DEP 
1350 GOSUP 185 0 BISP 
SF FOP 'iGlF: 0 INPUT 
• .GHT 

1360 BISP -PSP FOP - .f/'t 
, 0 input G(2'> 0 P 
ETUR*^ 

1370 Ct=FETF 0 IF C$=" 

THEN 1370 

1380 BISP 0 RETURN 

5000 BPTP 4990,2,16.4443 

95, 169. 30312, 'X*, 11000. 2 

0.144916,155.53097 

5010 BPTP •Y-,29000,28.2 

34177 178.17302 

5020 BPTP 5930,2,46.4827 

199, 67. 5537713. -X-, 11000 

,41.151193,69.583909 

5030 BPTP •Y-,25000,46.4 

63218,53.102816 

5048 BPTP 5970,3,36.1105 

797,-129.2027279,'H*,110 

00,42.4437104.-143.43092 

45 

5050 WlTp -X-, 31000, 35.0 
223871. -126. 3226741, -Z-, 
42W0, 26. 3624975,-128.08 
56445 

5060 BPTP 5990,3,51.5758 
78, 122.220224, -X-, 11008, 
55.2620851,131.1519648 
5070 BPTP -V, 27^, 47.0 
34799. 119. 443953, *2-, 410 
00,50.3629731-127.212904 
3 
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HP-75C PROGRAM LISTING (cont.) 



5088 DPT0 7930,3,59.5917 
27, 45. 102747, *M', 11000,0 
4.542658,23.552175 
5090 WTfl -X-, 21000, 62.! 

75964. 7. 0426538 , *Z* , 4300 
0,46.463218,53.102816 
5100 BRTfl **7930*, 3, 24.1 
707888,-153.5853232, -X- ■ 
11000,42.4437104,-143.43 
09245 

5110 WTfl -Y*, 30000, 26. 3 
624975,-128.0856445, -Z-. 
49000,9.3245789,-138.095 
497 

5120 DflTR 7%0,2,63.!942 

814,142.48319.-X-,11000. 

57.262021,152.2211225 

5130 MTR *Y’, 26000, 55. 2 

620851,131.1519648 

5140 BflTP 7970,4,62.1759 

64.7.0426538, •«*, 26000, 5 

4.4829872,-8.1736312 
5150 WTR -X-, 11000,68.3 
80615, -14. 2747, *r, 46000 
,64.5426.58,23.552175 
5160 *Z-,60000,70.5 

45261,8.435869 

5170 POTR 7980.4,30.5938 
74, 85. 1009305. -M-, 11000, 
30.4333018,90.49436 
5180 WTR -X-, 23000, 26. 3 
155006,97.5000093, -Y-, 43 
000,27.0158393,80.065342 
9 

5190 PRTR -Z-, 59000, 34.0 
346081,77.5446654 
5200 WTR 79%, 3, 38. 5220 
587,-16.4306159, -X-, 1100 
0,35.3120787,-12.3130245 
5210 PAIR -V, 29000, 40. 5 
82095, -27.520152, -Z-, 470 
00,42.0336515,-3.1215512 



5220 WTR 8970,3,39.5107 
54, 87. 291214, •«*, 11000,3 
0.593874,85.1009305 
5230 PRTR -X-,28^,42.4 

250603.76.4933862, -r, 44 
000,48.3649844,94.331846 

9 

5248 PRTR 9948,3,39.3386 

621,118.495637 

5250 PRTR •«•. 11088,47.0 

34799, 119. 443953, -X-, 270 

00,38.465699,122.2944529 

5260 PRTR -YV. 40080, 35.1 

91818,114.4817435 

5270 PRTR 9%0,4,42.4250 

603.76.4933862, -HM 1000 
,46.4827199,67.5537713 
5280 PRTR -X-, 25000, 41.1 
51 193,69.583909, -Y-, 3900 
0,34.0346881,77.5446654 
52% PRTR *Z*, 54000, 39. 5 
10754.87.291214 

5300 PRTR 9970,4,24.4803 
597, -141. 1938303, •«’, 110 
24. 1787888,-153.58532 
32 

5310 PRTR -X*. 38000, 42. 4 
437104, -143. 4309245, -Y-, 
55008,26.3624975,-128.08 
56445 

5328 PRTR -Z'. 75800, 9. 32 
45789,-138.095497 
5330 PRTR 9998,3,57.0912 
265, 178. 1506789, -X-, 1100 
8,52.494404,-173.1048974 
5348 PRTR -Y*, 29080,65.1 
440306, 166.531255, -Z*, 43 
000,57.262021,152.221122 
5 
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III. THE SHARP PC-1500 (RADIO SHACK TRS-80 PC-2). 

PC-1500 (TRS-80 PC-2) USER INSTRUCTIONS. 

The options are labeled 1 through 9, A or H. The H (Help) 
option will review options 1 - 9 & A. To step through the HELP 
menu, use the ENTER key. Option 6 (TWO POINT HEAD & DIST) is a 
stand-alone option which may be used by itself. For LORAN fixing. 
Option 8 must be selected first to load the station GRI's. If 
Option 8 is not used, then any option requiring the GRI's will 
automatically enter Option 8 first. Option 1 (LORAN FIX) must be 
selected at least once before Option 2 (ALTERNATE SOLN) can be 
selected. Once the GRI's are loaded, any of the remaining options 
may be used at any time. When first run, the ASF Correction 
Factors are set to zero; if they are subsequently entered as 
non-zero values they will remain set until either changed 
manually, by selection of Option 9, or until the program is RUN 
once more. In all cases. South latitudes and East longitudes must 
be negative for input and will be labeled by a minus sign '-' on 
output. For ease of reference the options are listed by number 
rather than by sequence of selection. 



INSTRUCTION 


DISPLAY 


INPUT 


Run Program 


NEXT OPTION (Help) ? 


RUN. 10 


1. LORAN FIX 




1 


ITD for 1st GRI 


ITD FOR ari 1? 


1st ITD [ENTER] 


ITD for 2nd GRI 


ITD FOR ari 2? 


2nd ITD [ENTER] 


Lat of fix 


LAT = dd°mm'ss" 


[ENTER] 


Long of fix 


LONG = ddd°mm'ss" 
NEXT OPTION (Help)? 


[ENTER] 


2. ALTERNATE SOLN 




2 


Lat of fix 


LAT = dd°mm'ss" 


[ENTER] 


Long of fix 


LONG = ddd°mm'ss" 
NEXT OPTION (Help) ? 


[ENTER] 


3. INPUT DEST LAT/LONG 




3 




DEST LAT dd.mmss? 


Lat of dest. 
[ENTER] 




DEST LONG ddd.mmss? 
NEXT OPTION (Help) ? 


Long of dest. 
[ENTER] 


4. HEAD & DIST TO DEST 




4 


Heading to dest. 


HEADING = dd°mm'ss" 


[ENTER] 


Dist. to dest. 


DISTANCE = mmm.ff n.mi. 
NEXT OPTION (Help)? 


[ENTER] 
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PC-1500 (TRS-80 PC-2) USER INSTRUCTIONS (cont.) 



INSTRUCTION 

5. PREDICT ITDS 

1st ITD 
2nd ITD 

6. TWO POINT HEAD & 

Heading to dest. 
Dist. to dest. 

7. CALIBRATE 

8. NEW STA. IDs 

9. ASF Corrections 
A. STOP 



DISPLAY 



LAT dd.mmss? 

LONG ddd.mmss? 

ITD FOR ari 1 = 
xxxxx.xx ys 
ITD FOR ari 2 = 
xxxxx.xx ys 
New Lat/Lon or 
Beturn to menu 

NEXT OPTION (Help)? 



ORIGIN LONG ddd.inmss? 

DEST LAT dd.mmss? 

DEST LONG ddd.mmss? 

HEADING = dd°mra'ss" 
DISTANCE = mmm.ff n.mi 
NEXT OPTION (Help) ? 



LAT dd.mmss? 

LONG ddd.mmss? 

ITD FOR ari 1 ? 

ITD FOR ari 2 ? 

NEXT OPTION (Help) ? 



1st GRI? 

2nd GRI? 

NEXT OPTION (Help) ? 



ASF FOR ari 1 ? 

ASF FOR ari 2 ? 

NEXT OPTION (Help) ? 



> 



DIST 

ORIGIN LAT dd.mmss? 



INPUT 

5 

Lat [ENTER] 

Long [ENTER] 

[ENTER] 

[ENTER] 

repeats Option 5 
goes to next line 



6 

Lat of origin 
[ENTER] 

Long of origin 
[ENTER] 

Lat of dest. 
[ENTER] 

Long of dest. 
[ENTER] 
[ENTER] 
[ENTER] 



7 

Lat Of fix [ENTER] 
Long of fix [ENTER] 
1st ITD [ENTER] 

2nd ITD [ENTER] 



8 

Sta. ID [ENTER] 
Sta. ID [ENTER] 



9 

1st ASF [ENTER] 
2nd ASF [ENTER] 



A 



PC-1500 (TRS-80 PC-2) SAMPLE PROBLEM 1 



You are sailing off of the coast of California. Your 
destination is Moss Landing at about 36°48'N and 121°47'W. Your 
present ITD from station pair GRI 9940W is 16019 and your ITD from 
station pair GRI 9940Y is 42585. What is your current position and 
what is the heading and distance from your current position to 
Moss Landing? We assume that the GRI's 9940W and 9940Y have not 
yet been loaded. 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



NEXT OPTION (Help) ? 
DEST LAT dd.mmss? 
DEST LONG ddd.mmss? 



3 

36.48 [ENTER] 
121.47 [ENTER] 



Input destination. 
36°48' 
121°47 ’ 



NEXT OPTION (Help) ? 
1st GRI? 

2nd GRI? 



8 Input station ID's. 

9940W [ENTER] 

9940Y [ENTER] 



NEXT OPTION (Help) ? 
ITD FOR 9940W? 

ITD FOR 9940Y? 

LAT = 39 14 19 
LONG = 115 50 52 



1 

16019 

42585 

[ENTER] 

[ENTER] 



Compute a fix. 



Latitude of fix. 
Longitude of fix. 



This fix is in Nevada. There are always two 
solutions to the LORAN equations. The navigator 
must select the correct one. 



NEXT OPTION (Help)? 
LAT = 35 00 01 
LONG = 125 00 09 



2 

[ENTER] 

[ENTER] 



Select alternate soln. 
Latitude of fix. 
Longitude of fix. 



This fix is in the Pacific. The navigator 
knows it is the correct fix because of his 
estimate of where he should be. 



NEXT OPTION (Help)? 4 

HEADING = 54 34 11 [ENTER] 

DISTANCE = 190.38 n.mi. [ENTER] 



Find heading & distance 
to destination. 

Heading to Moss Landing. 
Distance to Moss Landing. 



NEXT OPTION (Help) ? 



Repeat with new option 
or press A to quit. 
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PC-1500 (TRS-80 PC-2) SAMPLE PROBLEM 2 



How far, and in what direction, is Corvallis, Oregon 
(44°34'N, 123°16'W) from Cupertino, California (37°19'N, 
122°02 ’W) ? 



DISPLAY CONTENTS 



USER RESPONSE 



COMMENTS 



NEXT OPTION (Help)? 

ORIGIN LAT dd.mmss? 
ORIGIN LONG ddd.mmss? 
DEST LAT dd.mmss? 

DEST LONG ddd.mmss? 
HEADING = 353 02 59 
DISTANCE = 438.32 n.mi. 



6 

37.19 [ENTER] 
122.02 [ENTER] 
44.34 [ENTER] 
123.16 [ENTER] 
[ENTER] 
[ENTER] 



Two point distance 
and heading. 

37°19' 

122 ° 02 ' 

44034 . 

123°16 • 



NEXT OPTION (Help) ? 



Repeat with new option 
or press A to quit. 



PC-1500 (TRS-80 PC-2) SAMPLE PROBLEM 3 



Suppose that you want to know what ITD's you would expect to 
receive at 35° North, 125° West and at 36° 27' North, 126° 54' West 
from 9940W and 9940Y. To determine these ITD's, proceed as follows 
(assume that the GRI's have been loaded as in Sample Problem 1): 



DISPLAY CONTENTS 



USER RESPONSE 



COMMENTS 



NEXT OPTION (Help)? 

LAT dd.mmss? 

LONG ddd.mmss? 

ITD FOR 9940W = 16019.35 
ITD FOR 9940Y = 42584.71 
Hew Lat/Lon or 

Return to menu? 
LAT dd.mmss? 

LONG ddd.mmss? 



ITD FOR 9940W = 15572.32 
ITD FOR 9940Y = 43006.15 
Hew Lat/Lon or 

Return to menu? 



5 

35 [ENTER] 
125 [ENTER] 
[ENTER] 
[ENTER] 

N 

36.27 [ENTER] 
126.54 [ENTER] 
[ENTER] 
[ENTER] 

R 



Predict ITD's. 
35° 

125° 



36° 27 ' 
126° 54 ' 



NEXT OPTION (Help)? 



Repeat with new option 
or press A to quit. 
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PC-1500 (TRS-80 PC-2) SAMPLE PROBLEM 4 



Suppose you are receiving an ITD of 16308 from 9940W and 
42800 from 9940Y. These ITD's would tell you that your location is 
36°47'55"N and 121°47'11"W. However, you know that your position 
is benchmarked to be at 36°47'36”N and 121°46'58"W, and you wish 
to calibrate your PC-1500 so that the ITD's of 16308 and 42800 
will give you the latter fix instead of the former. Proceed as 
follows (assume the GRI's have been loaded as in Sample Problem 
1 ) : 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



NEXT OPTION (Help) ? 
LAT dd.mmss? 

LONG ddd.mmss? 

ITD FOR 9940W? 

ITD FOR 9940Y? 



7 

36.4736 [ENTER] 
121.4658 [ENTER] 
16308 [ENTER] 
42800 [ENTER] 



Calibrate . 

36°47 '36" 
121°45 *58" 



The station baselines have now been modified to 
achieve calibration. Now, reenter 16038 and 42800 into 
the fixing routine to test the calibration. Calibration 
does not modify the permanent station data stored in the 
PC-1500. The calibration remains effective until the 
GRI's are reloaded by Option 8. NOTE; The affect of 
calibration on the accuracy of fixes far removed from 
the benchmark has not been studied. The user should use 
the calibration option with caution. 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



NEXT OPTION (Help)? 
ITD FOR 9940W? 

ITD FOR 9940Y? 

LAT = 36 47 35 

LONG = 121 46 59 



1 

16308 [ENTER] 
42800 [ENTER] 
[ENTER] 
[ENTER] 



Compute a fix. 



Lat of fix. 
Long of fix. 



The small discrepancy between this fix and the 
benchmark is due to assumptions in the fixing algorithm. 
If higher precision is required, the ASF Correction 
factor may be used (see Sample Problem 5). Note that you 
may need to use the Alternate Solution Option 2 if the 
fix obtained above is near 38°52'57"N and 116°51'11'W. 



DISPLAY CONTENTS 


USER RESPONSE 


COMMENTS 


NEXT OPTION (Help)? 




Repeat with new option 
or press A to quit. 
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PC-1500 (TRS-80 PC-2) SAMPLE PROBLEM 5 



Suppose you are receiving an ITD of 12153.31 microseconds 
from 9960W and 44451.83 microseconds from 9960Y. These ITD's would 
tell you that your location is 44°15'05"N and 67°25'23"W. Entering 
the ASF Correction Tables [Ref. 5,6] with these readings, the ASF 
Correction for GRI 9960W at 44°15'N and 67°25'W is 1.5 micro- 
seconds. Similiarly, the ASF Correction for GRI 9960Y at these 
coordinates is 2.7 microseconds. Enter these corrections into your 
PC-1500 and recompute your position. (Load the GRI's 9960W and 
9960Y using Option 8) . 



DISPLAY CONTENTS 



USER RESPONSE 



C0I4MENTS 



NEXT OPTION (Help) ? 
ASF FOR 9960W? 

ASF FOR 9960Y? 

NEXT OPTION (Help) ? 
ITD FOR 9960W? 

ITD FOR 9940Y? 

LAT = 44 15 26 

LONG = 67 26 26 

NEXT OPTION (Help) ? 



9 

1.5 [ENTER] 

2.7 [ENTER] 

1 

12153.31 [ENTER] 
44451.83 [ENTER] 
[ENTER] 
[ENTER] 



ASF Correction. 
Compute a fix. 

Repeat with new option 
or press A to quit. 



These ASF Corrections have been entered into the 
computer. The range of their validity must be checked 
with the ASF Correction tables and reentered if they 
change. NOTE; If you are using the ASF Correction Tables 
and if you wish to calibrate to a benchmark position, 
you should first enter the ASF Corrections for your 
benchmark and then use the calibration Option 7 (see 
Sample Problem 4) . 
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PC-1500 (TRS-80 PC-2) PROGRA!! LISTING 



IP: REM LORAN-C R 
OUTINE. ''ev 06 
-23-83. 1730 H 

OURS. 

20:N9=]5:REn N9= 

« OF MASTER ST 
ATJONS 

25: DIM U$(4)^:j, D9 
(4), P"] (4), L 1 (4 
), G$(2)*6, D(2) 

, P(2, 2), L(2, 2) 

, B<2), T(3), 7(2 
, 2), A<2) 

26:D]M G(2'> 
30:RAD]AN :C0^1-^2 
98. 26: A0^-1 : RD 
=P] /]80:G1$-' 
:GOTO 120 
40:X^1NT (M*X-i-.5) 
/n: RETURN 
50: P=129. 04398/T- 
. ^0758+. 645764 
38E-3XT: RETURN 
60:P^2. 7412979/T- 
. 011402+. 32774 
624E-3XT 

70: C$=]NKEY$ :IF 
C$ = — then 70 
80:C=ASC (C$);C$- 
CHR$ (C-324<C> 
90) ) 

90:ROR C=1T0 LEN 
(C0$): IF C$^ 
MID$ (C0$, C, 1 ) 
THEN RETURN 
100: NEXT C:GOTO 70 
120: PAUSE -NEXT OP 
TION (He tp)?‘': 
C0$-" 123456789 
AH":GOSUB 70: 
PAUSE •' " 

130: ON CGOSUB 910, 
950, 1010, 1040, 
1090, 990, 1200, 
190, 1320, 530, 1 
40:GOTO 120 



140: PRINT ' 1 - LOR 
AN FIX' : PRINT 
-2 - ALTERNATE 
SOLN' :dR]NT ■' 
3 -INPUT DEST 
LAT/LONG" 

150:PR1NT "4 - hEA 
D & BIST TO FI 
X'^ : PRINT ' 5 - 
PREDICT ITDs' 
160 :pR1NT '-6 - TUO 
POINT DIST & 
HEAD' : PRINT '7 
- CALIBRATE' 

■ 70; DRJ NT '8 - NEA 
STA. IDs ' . 
PRINT '9 - ASP 
Correct i ons '' • 
PRINT "A - STO 
P ' 

180: RETURN 
!85: IP 61$< >' 'HEN 
RETURN 

190:P0^l:N^l . INPUT 
'1st GRI"’ ' ; 1$ 
: PAUSE ' ' 

200: COSUB 380: 

COSUB 390. IP P 
0^27HEN 190 
210: P0-1 : N^2: INPUT 
"2nd GRl? ' ; 1$ 
: PAUSE ' ^ ; 

GOSUB 380 
220: IF A$=I9$THEN 
GOSUB 470: IF F 
0=1 THEN 250 
240: GOSUB 390: ]F F 
0=2THEN 210 
250: Fl^l : F2=l : IF G 
1$=G2$THEN 300 
260: IF P( 1, 1 )=P( 1, 
2)AND L< 1, 1 )=L 
(1, 2)THEN 310 
270:P2=-l: IF PCI, 1 
>=P<2, 2) AND L( 
1, 1 )=L(2, 2) 
THEN 310 
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PC-1500 (TRS-80 PC-2) PROGRAM LISTING (cont.) 



288:f 1=-1 : ]f P(2, 1 
)=<=(2, 2^AHD L( 
2, 1 )=L(2, 2) 
THEN 3]0 

290: P2^1 : IF P(2, 1 ) 
=P< 1, 2)AND L(2 
, ] 2)THEN 

310 

300: PRINT "ERROR: 
NO TRIPLET. : 
GOTO 190 

310; “OR 1^1 TO 2: PI 
^PC 1, I ) : Ll^LC i 
. I ) : ='2='=’(2. ’ : 
L2^L :2, : ' 

32e:=’AJSE 'No-'kinQ 
■ :G0SUP 330: 
NEXT ]:G(1)=0. 
GC2)=0: R£“URN 

330: GOSUB 650: B<; ] ) 
=S0: ?( 1 . I )-Z! . 

?(2j ] >-22 

340; '-21282. 3593^.5 
0 

350: 1 532“HLN 

GOSUB 50 

360:1=“ “<532'THEN 
COSUB 60 

320; j 

RETURN 

380;L-LEN 

LEFT$ n$,L-l> 
;B$=RIGHT$ (]$ 
. 1 ): B=ASG <B$) 

: B$-GHR$ (B-32 
;»:(B>90) ) : 
RETURN 

390:N8=1 :RESTORE 

400: READ 19$, N0, p0 
, L0 

4]0;POR I-ITO N0: 
READ UJ$( I ), D9( 
I ), *^1 < I S LI ( n 
:NEXT I 

420: IF I9$< >A$THEN 
450 

430: GOSUB 470: IF p 
0-2THEN 460 



440: RETURN 
450; N8=N8-1 : 1p N8< 
-N9THEN 400 
460: PAUSE It; IS 
NOT CATALOGED' 

. P0-2: RETURN 
470; POR I-l TO N0; 

N$( I )-B$ 
THEN 490 
480: NEXT ];P0=2: 
RETURN 

490. ’P N:^I ■"HEN LE’ 
Gl$=l$; G$( 1 >-] 
$ 

500; N-2“HEN LE“ 
C2t-I $; G$:2>=: 
$ 

510: P(N)-D9 • : ); v-R 
nxDEG 

COSUB 1270;^.] 

, N)^X: L( j . N)^-R 
D>-DEG (l.0) 
520:X^RDXDEG (P]'! 
>): GOSUB 1270. 
D ( 2, N )=X ; L ( 2. N 
)-RD*DEG CLICI 
> ) ; RETURN 
"30;^AUSE :FND 
^>4 0;Rc.n DIR 30LN 
550; ■:’8--SlN (2:>;?9 
-COS (21);P8- 
SIN (PI>;P9- 
COS (PI > : H^-78 
*P9: Cl^-COtn; C2 
^C0X( ]-n*n>/4 
560: D=< 1-C2);t;( 1-C2 
-Cl XH) : P=C2*( 1 
+C1 xn/2)/D: N-P 
9X29 

520: vy=N: XX=P8: 

COSUB 1260:S1= 
AN; D0=S0/D: U-2 
X(S1-D0) : W-1-2 
XPXCOS (U);U- 
COS (U-+D0) 
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PC-1500 (TRS-80 PC-2) PROGRAM LISTING (cont.) 



580: X=C2XC2XS1N (D 
0):*;COS <'D0X(2* 
UXU-1 )); '=2XPL 
UXW*SJN (D0) 
590: S2=D0+X-Y: S8= 


700; 


SIN (S2):S9= 
COS (S2):K=SQR 


710; 


((1Xn+(N:t:S9-P8* 

S8)'^2) 

600:P2=ATN ((P8YS9 
+NYS8)/K) 


■’20: 


610: vy^-S8X28; XX=^ 
9YS9-P8XS8LZ9: 
COSUB 1260:S3= 


730; 


AN 

C20: H:=C1 *( ]-C2)YS2 
-Cl XC2XS8YC0S 
(SI +S1 -S2) ; L2= 
L 1 ---SS-H 

630: v'v = _fi: XX=-<'NLS 


‘■■4 0 : 


9-^8YS8) : GOSUB 
1260: 22=AN. 
RETURN 

640: REN REU SOuN 
650: L3=L2-L1 : °3=(P 


■’40 : 


2-^1 )/2: P<i-<'P1 
^^2)/2 


760: 


660:‘^6=S1N <'P3':"'' 
= COS ^'P3):Pp= 
SIN (P4):P9= 
COS (P4) 


~P0; 


G70; H^pT'*p7-P8iP8; 
L=PGXP6+H*S1N 
(L3/2)'^2: D0=2X 
ASN (SQR (D) 


^80: 


680: U=2*P8:|fP84:P7XP 
7/( ]-L ) : U=2YP6 
YP6*P9tP9/L:X= 


790: 


j + U: V;=:U-U: T^D0 
/SIN (D0):D^4* 
T;»:T 


800; 


690:E = 24:COS (D0):A 
= DXE:C = T-(A-F.) 
/2: N] =X*(A+CXX 
) : B=D+D: N2=Y:C( 
B-^E*Y) : N3-DYX* 


810: 



Y 



D?^C0*:C0*':N]-N 
2 + N3;'/6''^:D1^C0 
4.(T*X-Y)/4;S0^ 
a-Dl+D2)*S]N 
(00) 

n=32XT-(20>;T-A 
) YX-(B+4 )XY 
r=v + v_^i:(4_X ) ; 
G^C0Y(T''2+C0Xn 

^64 ) ; Q- -p i.G* 

TAN (L3)/4 
l 4=(L3+3)/2. L8 
^S]N (L4);u9=^ 
CC3 (^4^ 

XX-!-'3 
Y^8;C0S'JP :260 

; ^ ; ^qK| : s Pi, 

vy.'-PpiLB- 
C03JB 1250- ”2- 
AN 

] +D 1 : y- 7 ^ 

•+^2: COSUB ]2S0 
; ?] -X ; X = T ] - ■’2 : 
COSJB 1250; 22- 
X; RETURN 
REn PJXINS RC 
UT ] NE 

a: -P 1 iSiN " A' ; 
'■):B]^COS 'A': 

^ T-COS 'BM 'I ) ; 
C 1 ^2 IN (BT ] ) ) 
A2-F2XSIN (A<:2 
)):B2 = C0S ^:A'2 
))-C0S (B(2)); 
C2=S1N (B(2)) 
El^2( ] , 1) : IF F 
1=-]THEN LET E 
1 = 2 ( 2 , 1 ) 

E2=Z( ], 2): IF F 
2=-lTHEN LET E 
2=2(2, 2) 
C=B1*C2XC0S (E 
2)-B2*Cl^C0S ( 
El ) : S=B1 4:C2X 
SJN (E2)-B2*C1 
XSIN (El) 
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PC-1500 (TRS-80 PC-2) PROGRAM LISTING (cont.) 



820: K^-P2*AI-B1 

R=SQR <C:*:C+S*8 
^ : VV=3: XX=C: 
COSUB I260:G=-'A 
N 

830: ?=G+A0XACS <K/ 
R); YY=B2:XX=C2 
XCOS <2-E2)-A2 
:GOSUB 1260: S0 
=AN 

840: ir then 

LET 2) : 

L 1 ( ] , 2 ^ 

850: : - -2-- 3 then 



8G0: ?]^2; C03UB 55>: 
; P0^c>2; L0-L2; - 
--ATN (TAN (P0) 
/< ]-C0) ) 

870: =’^P/RD: X=L0/RC 
: 360; COSUB : 
250: L-X: ^ >3 

80THEN LE'" L-^ 
- 360 

880; COSU? 3280 
: P$-C$ . • 

COSUP :280 

890. '^EjN' _A" 

.P$;pp]NJT ' i_ON 

C ^ ; c$: 

RETURN 

900: REU OPT 3 

930:GOSUB 385:PQR 
]=ITO 2 

920: PAUSE I TD FOR 
■ ; G$( I ) ; : 
INPUT "? *';A: 
PAUSE : PAUSE " 

: A=A+G( ] )-D< 

3 )-T< I ): IF ABS 
(AXT( ] )THEN 9 
40 

930:PRINT " I TD NOT 
UAL ID FOR XG 
$( I ) : GOTO 920 



840; H( ] '.^-A "2 3 295. 8 
736: NEX' 3, 
COSUB 770: 
RETURN 

950: !F A0=3THEN 

LET A0--3:GOTO 
970 
960: A0-3 
970:GOSUB 770: 
RETURN 

980; REn Qp" 6 
990 ; 1 NPU~ 'ORIGIN 
L A~ dd . Tims s '3' 

; ; 1 N|P^''' 'ORIS 

In _0N^ 

ssP ' : _ 

1000: V- R::i,2EG (P' 
:COSJ? 32^0; 
C0=X; ^0 ^R:u 
DEG : L '> • 
C0SJ3 3030; 
COSUB 3040: 
RETURN 

3 0 3 0. INP^:^ ' DE"’ 

3_ A’ ciU . mr.s s ' ' 

: p; ’NPo' ' 
OLS* ^ONC d'‘‘ 

, T T. £ r ^ ^ 

3 020: '•'^RS.^DL: 

: GGS JP 3270. 
P5^X; L'p^RDi. 
DEG (L): 
RETURN 

3030:REn OP' 4 
]040:P]=P0:L]=:.0: 
P2=--P5: L2=L5: 
GOSUB 650 
1050:N^360:X^23/R 
D: GOSUB 3250 
: GOSUB 3280 
3060;PR3NT "HEAD! 
NG ^ ■■;0$:U^ 
100: X^3443. 9 
] 2XS0 : GOSUB 
•T0:PRINT 'Dl 
STANCE ^ 'UX 
; n , m : . ' 
1070: RETURN 
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PC-1500 (TRS-80 PC-2) PROGRAM LISTING (cont.) 



:08L';R£n 0^' 5 

109e.GOSUB ]85; 
GOSUB 1170: 
-OR K=]T0 2; 
13=T(K)-D(K) 
I 100: =’2^P(2, K) ; L2 
^LC2, K): 
GOSUB 650; 1= 
3: GOSUB 
lM:_] q-rT (3 ) 

! : ;0;‘=’2-'^f j, );L? 
-- L ( I , k ) ; 
GOSUB 650; ! -- 
3; COSUr 3^2; 

' q - i q “ ' 3 '' 

; :20;^-;00; --:S. 
GGSU5 q(? 

; 1 30; : '2 ~ 
OR ' ; G$ ( k ■) ; 

; X; »BJSL 
; NLX~ k 

-40;t.AUSE 'Neo) : 
at y i 009 O'- 3^ 
f> 1 4 ^ K-. to nn o 
.jO- ; L 0$- ' MR' 

. COSUB 70 
: : 50; ' “ c m • 
090 

I ] 60 ; R£ ' URN 
: :20; ’M-\IT "LA* d 

d . Ti'in ^ 

1 . ir^PUT ' LON 
G ddd. 'Tims s? 

^ ; L j ; >='AUSE " 

: ]80;X-RD*DEG (PI 
COSUB 3270 
; Pl^X; L1=RDX 
DEG <L1); 
RETURN 

■ ]90;REn OPT 7 
1200; GOSUB JB5; 
GOSUB ]]70; 
f^OR K^ITO 2 



1210;PAUSE "]T0 ; 
OR ';G$(k);: 
INPUT : 

9; PAUSE ; 
PAUSE ' : !9 

=J9-D(k) 

i220;P2^P(2, k). l 2 
= L(2, k); 
GOSUB 650;! -- 
3; COSUB ?40; 

’ 9=] 9-T '3 ?; 
:230;P2=P(:, k).L.2 
=^( ; , k ) : 
GOSUB L 00 . 3 '• 
3. COS or. 3 

C ( K ) 

1240; NEXT k; 
RETURN 

1250: X=X-N4.:m’ 'X 
/N) ; RE'UPM 
:250;am=atn (-'•-' 
XX+1E-3A' VV:^ 
0)))-p: X 
<0) ; return 

2 270;V^ftTH ''(l-ce 
)i'TAN CX’.. 
RE*URr^ 

1 230 ; L $-■ ' • ' 

OTHtiN 

- ' _ ; Yr. - V 

: 290: X-X+ 1 ^7200. 
0=]NT (X);:$ 
= C$ + 3TR$ .'X0 
) + '■ ' 

1300: X^60X(X-X0) : 
X0=^JNT (X);X 
$-STR$ (J00-- 
X0) : C$^C$-r 
R16HT$ ‘'X$, 2 
) + '■ " 

1310: X^'60X(X-X0) ; 
X0^INT (X):X 
$=STR$ (100+ 
X0) : C$^C$+ 
RIGHTS (XS, 2 
)+" ' ; RETURN 
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PC-1500 (TRS-80 PC-2) PROGRAM LISTING (cont.) 



. iP5. 

OR ’ ; G$ : : 
INPUT ’ 
n ) : ^i^USE 
^AUSE ■ 

i330:^AUS£ ' mS^ 
OP 

INPUT ■ 

'2) : ^aj:^ 

-A^5E ; 

Pl. uPN 

9 , “I ^ ^ 4 ^ ' 



Op 7 

,u:0. UA ^A ' ' , 2 
0?, 2?.. 7^^: 

, : ^B. : ‘"322 
220: PA^A -332 
2, . ^82'' .: 



: 222, 

'21 ] A r ^ 5u 

o -j q q 



5070: DA FA ' 'v , -7^ 
00^ ,17. 23-:^9P 
1 1 1 9 . 3 3 9 ' j 3 ^ 

' Z' * ^ 1 000, 72 

. 3629731, *2“ 
2129043 

5080: data ■ ^930‘ , 
3, 59.59172", 
^5.102747, A 
, : .1000, 6A. ^ 

"^2658, 23 . 77. 

1 ”*5 

5030. DA'" A ' , 2: 2 

00, 62. :'^53-2 

, ■ . 042P53r^ 

' , ^3000, , 

^£ 3218, 53. : 2 

2 8 1 7' 



• 20; JA^A :»^’^9?2 

. 3, 24. : 707w_ 

8 , ' 153. 53532 
32 , , : 1202 

, A ^ ^ A 0 ^ ] i/** 7 , 

- ; 43 . 

; 1 tr; 

00, 26. 3G2‘i0~ 

- ; 2&. ‘■''S'-p- 



00, . -Pi. . ;• 

. 6 -'. I02r2 6 

040:2ATr-, . 

3, 36. : : 03297 
. -129. 202727 
9, ,4 ' , j j 000, 
<^2. ‘^437] 04, - 
143. 4309?'i5 
’1030; [1AT9 ' X' , 3] 0 
00, 35.0223S7 
:, - 126. 32267 
■ 7‘ . ^2000, 
26. 3624979, - 
1 28. 0896445 
5000: HATH "5990*. 
3, 51 .5'^5878, 
122. 220224, 

X' , 1 1000, 55. 
2620851, 131 . 

1519648 



. ^'. 324"^3 
1 3b . 0 95 9 ' 

' ■ 1 D'2 . DA 7 A ' 7352 ‘ , 

2, 63. 1 9‘-'^^2ei A 
, 1^2. ^83 1 3 , 

X‘ , 1 1000, 57 . 
262021, 152. 2 
21 1225 

5i30:DA’^A '■'"‘,760 
00, 55.762085 
1, 131.151964 
8 

51 40: DATA ' ■^970". 
4, 67. 1 75964, 
7.0425538, ■ UJ 
", 26000, 54 . 4 
829872, -8. 17 
36312 
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PC-1500 (TRS-80 PC-2) PROGRAM LISTING (cont.) 



bl50: D<^T« "X' . ] 10 
00, 68. 380615 
, -M. 27^7, 

' , <^6000, 64 . 5 
42658, 23.552 
175 

5160: DATA "Z'X 600 
00, 70. 545261 
, 8.435869 
5 170: DA'" A ' 7980'. 
4, 30. 593874. 
85. 1009305, 
ul'-, 1 1000, 30. 
^333018. 90. 

A 4 36 

5180: DATA ' v' , 33 ^ 
00, 26.31 5500 
6 , 97.5000053 
. "V". ^3000, 2 
0158393, 60 
. 0653429 

51 90: DATA "7' , 590 

00. 34 . 034608 

1 , ’’7 . 5‘^4d65‘^ 
5200; data '^990'. 

3. 38.5220587 
. -16.4306159 
. ''".11 000. ? 
3. 312078". 1 

2. 3130245 
5210: DATA ' , 290 

00, 40.582095 
, -27.520152, 

■ 2", 47000, 42 
. 0336515, -3. 
1215512 

5220:DATA "8970", 
3, 39.510754, 
87.291214, "W 
", 1 1000, 30. 5 
93874, 85. 100 
9305 



5230; DATA , 280 
00, 42. 425060 
3, 76.4933862 

, "V , 44000, 4 
8. 3649844, 94 
. 3318469 

5240: DATA "9940' , 
3, 39. 3306621 
, 1 18.495637, 

' UJ' , ; 1000, 4 
. 034799 . 1 19. 
443953 

5250: DATA ' X' , 370 

00, 38.45599, 

1 2V . 2 744 529. 

'' • 40000, 3: 

. 19.818. 1 14. 

4 81 '’43 L": 

5270; DA^A '9960'. 

4.42. 4250503 

. 75 . 4933862. 

D ' , 1 1 000. 45 
. 4827199, 6,\ 
553771 7 

5?80:DA-^A 250 

00, 41. 15119? 
. 59. 583909, 

'' , 3 9000, 7 w _ 

0 3 4 81 0 3 1 , ' . : 
446654 

5290: data ' 1^' . 54 0. 
00, 39. 510754 
. 67 . 29 1 2 1 4 
5300: DATA ' 9370' . 
4, 24.4803597 
,-141. 193030 
3, ■ ^,1' , 1 1000, 
24. 1707888, - 
153. 5853232 
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PC-1500 (TRS-80 PC-2) PROGRAM LISTING (cont.) 



53]0: DATA "X", 300 
00, 42. 443710 

4, -143. 43092 
45, "Y", 55000 
, 26.3624975, 
-128.0856445 

5320: DATA “Z", 750 
00, 9.3245789 
, -138. 095497 
5330: DATA ' 9990", 

5, 57.091265, 
170. 1506789, 
"X", 1 1000, 52 
. 494404, -173 
. 1048974 

5340: DATA "Y", 290 
00, 65. 144030 
6, 166.531255 
, ■ , 43000, 5 

7.262021, 152 
. 2211225 
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IV. THE RADIO SHACK TRS-80 MODEL 100. 



TRS-80 MODEL 100 USER INSTRUCTIONS. 

The options are labeled 1 through 9 or A. Option 6 (TWO POINT 
HEAD & DIST) is a stand-alone option which may be used by itself. 
For LORAN fixing. Option 8 must be selected first to load the 
station GRI's. If Option 8 is not used, then any option requiring 
the GRI's will automatically enter Option 8 first. Option 1 (LORAN 
FIX) must be selected at least once before Option 2 (ALTERNATE 
SOLN) can be selected. Once the GRI's are loaded, any of the 
remaining options may be used at any time. When first run, the ASF 
Correction Factors are set to zero; if they are subsequently 
entered as non-zero values they will remain set until either 
changed manually, by selection of Option 9, or until the program 
is RUN once more. In all cases. South latitudes and East 
longitudes must be negative for input and will be labeled by a 
minus sign '-' on output. For ease of reference the options are 
listed by number rather than by sequence of selection. 



INSTRUCTION 


DISPLAY 


INPUT 


Run Program 


Select LORAN. BA 
OPTION? 


[ENTER] 


1. LORAN FIX 




1 


ITD for 1st GRI 


ITD FOR ari 1? 


1st ITD [ENTER] 


ITD for 2nd GRI 


ITD FOR ari 2? 


2nd ITD [ENTER] 


Lat of fix 


LAT = dd°mm'ss" 


[ENTER] 


Long of fix 


LONG = ddd°mm'ss" 
OPTION? 


[ENTER] 


2. ALTERNATE SOLN 




2 


Lat of fix 


LAT = dd°mm'ss" 


[ENTER] 


Long of fix 


LONG = ddd°mm'ss" 
OPTION? 


[ENTER] 


3. INPUT DEST LAT/LONG 




3 




DEST LAT dd.mmss? 


Lat of dest. 
[ENTER] 




DEST LONG ddd.mmss? 
OPTION? 


Long of dest. 
[ENTER] 


4. HEAD & DIST TO DEST 




4 


Heading to dest. 


HEADING = dd°mm'ss" 


[ENTER] 


Dist. to dest. 


DISTANCE = mmm.ff n.mi. 
OPTION? 


[ ENTER] 
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TRS-80 MODEL 100 USER INSTRUCTIONS (cont.) 



INSTRUCTION 
5. PREDICT ITDS 

1st ITD 
2nd ITD 



7. CALIBRATE 



8. NEW STA. IDS 

9. ASF Corrections 
A. STOP 



DISPLAY 



LAT dd.mmss? 

LONG ddd.iranss? 
ITD FOR ori 1 = 
xxxxx.xx ps 
ITD FOR ari 2 = 
xxxxx.xx ys 
Hew Lat/Lon or 
Eeturn to menu 

OPTION? 



LAT dd.mmss? 
LONG ddd.mmss? 
ITD FOR qri 1 ? 
ITD FOR qri 2 ? 
OPTION? 



1st GRI? 
2nd GRI? 
OPTION? 



ASF FOR 9rl 1 ? 
ASF FOR qri 2 ? 
OPTION? 



> 



INPUT 

5 

Lat [ENTER] 

Long [ENTER] 

[ENTER] 

[ENTER] 

N repeats Option 5 
R goes to next line 



6 

Lat of origin 
[ENTER] 

Long of origin 
[ENTER] 

Lat of dest. 
[ENTER] 

Long of dest. 
[ENTER] 
[ENTER] 
[ENTER] 



7 

Lat of fix [ENTER] 
Long of fix [ENTER] 
1st ITD [ENTER] 

2nd ITD [ENTER] 



8 

Sta. ID [ENTER] 
Sta. ID [ENTER] 



9 

1st ASF [ENTER] 
2nd ASF [ENTER] 



A 



6. TWO POINT HEAD & DIST 

ORIGIN LAT dd.mmss? 

ORIGIN LONG ddd.mmss? 

DEST LAT dd.mmss? 

DEST LONG ddd.mmss? 

Heading to dest. HEADING = dd°mm'ss" 
Dist. to dest. DISTANCE = mmm.ff n.mi. 

OPTION? 
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TRS-80 MODEL 100 SAMPLE PROBLEM 1 



You are sailing off of the coast of California. Your 
destination is Moss Landing at about 36°48'N and 121° 47 'W. Your 
present ITD from station pair GRI 9940W is 16019 and your ITD from 
station pair GRI 9940Y is 42585. What is your current position and 
what is the heading and distance from your current position to 
Moss Landing? We assume that the GRI ' s 9940W and 9940Y have not 
yet been loaded. 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



OPTION? 

DEST LAT dd.mmss? 
DEST LONG ddd.mmss? 



3 

36.48 [ENTER] 
121.47 [ENTER] 



Input destination. 
36^48' 
121°47 ' 



OPTION? 
1st GRI? 
2nd GRI? 



8 Input station ID's. 

9940W [ENTER] 

9940Y [ENTER] 



OPTION? 

ITD FOR 9940W? 

ITD FOR 9940Y? 
LAT = 3 9° 14 '19" 
LONG = 115°50'52" 



1 

16019 
425 85 
[ENTER] 
[ENTER] 



Compute a fix. 



Latitude of fix. 
Longitude of fix. 



This fix is in Nevada. There are always two 
solutions to the LORAN equations. The navigator 
must select the correct one. 



OPTION? 

LAT = 35° 00 ’01" 
LONG = 125° 00 ’09" 



2 

[ENTER] 

[ENTER] 



Select alternate soln. 
Latitude of fix. 
Longitude of fix. 



This fix is in the Pacific. The navigator 
knows it is the correct fix because of his 
estimate of where he should be. 



OPTION? 4 

HEADING = 54° 34 'll" [ENTER] 

DISTANCE = 190.38 n.mi. [ENTER] 



Find heading & distance 
to destination. 

Heading to Moss Landing. 
Distance to Moss Landing. 



OPTION? 



Repeat with new option 
or press A to quit. 
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TRS-80 MODEL SAMPLE PROBLEM 2 



How far, and in what direction, is Corvallis, Oregon 
(44°34‘N, 123°16*W) from Cupertino, California (37°19’N, 
122°02 *W) ? 



DISPLAY CONTENTS 



USER RESPONSE 



COMMENTS 



OPTION? 



ORIGIN LAT dd.mmss? 37 
ORIGIN LONG ddd.mmss? 122 
DEST LAT dd.mmss? 44 
DEST LONG ddd.mmss? 123 
HEADING = 353° 02 ’59" 



DISTANCE = 438.32 n.mi. 



6 


Two point distance 
and heading. 


19 [ENTER] 


37°19 ' 


02 [ENTER] 


122°02' 


34 [ENTER] 


44°34 ' 


16 [ENTER] 

[ENTER] 

[ENTER] 


123°16 ' 



OPTION? 



Repeat with new option 
or press A to quit. 



TRS-80 MODEL SAMPLE PROBLEM 3 



Suppose that you want to know what ITD's you would expect to 
receive at 35° North, 125° West and at 36° 27 ' North, 126° 54 ' West 
from 9940W and 9940Y. To determine these ITD's, proceed as follows 
(assume that the GRI's have been loaded as in Sample Problem 1): 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



OPTION? 

LAT dd.mmss? 

LONG ddd.mmss? 

ITD FOR 9940W = 16019.35 
ITD FOR 9940Y = 42584.71 
flew Lat/Lon or 

Eeturn to menu? 
LAT dd.mmss? 

LONG ddd.mmss? 



ITD FOR 9940W = 15572.32 
ITD FOR 9940Y = 43006.15 
Hew Lat/Lon or 

Eeturn to menu? 



5 

35 [ENTER] 

125 [ENTER] 
[ENTER] 
[ENTER] 

N 

36.27 [ENTER] 
126.54 [ENTER] 
[ENTER] 
[ENTER] 

R 



Predict ITD's. 
35° 

125° 



36°27 ' 
126°54 ' 



OPTION? 



Repeat with new option 
or press A to quit. 
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TRS-80 MODEL 100 SAMPLE PROBLEM 4 



Suppose you are receiving an ITD of 16308 from 9940W and 
42800 from 9940Y. These ITD's would tell you that your location is 
36°47'55"N and 121°47'11"W. However, you know that your position 
is benchmarked to be at 36°47'36"N and 121°46'58"W, and you wish 
to calibrate your Model 100 so that the ITD's of 16308 and 42800 
will give you the latter fix instead of the former. Proceed as 
follows (assume the GRI ' s have been loaded as in Sample Problem 
1 ) : 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



OPTION? 

LAT dd.mmss? 
LONG ddd.mmss? 
ITD FOR 9940W? 
ITD FOR 9940Y? 



7 

36.4736 [ENTER] 
121.4658 [ENTER] 
16308 [ENTER] 
42800 [ENTER] 



Calibrate . 

36° 47 '36" 
121°45 '58" 



The station baselines have now been modified to 
achieve calibration. Now, reenter 16038 and 42800 into 
the fixing routine to test the calibration. Calibration 
does not modify the permanent station data stored in the 
Model 100. The calibration remains effective until the 
GRI's are reloaded by Option 8. NOTE; The affect of 
calibration on the accuracy of fixes far removed from 
the benchmark has not been studied. The user should use 
the calibration option with caution. 



DISPLAY CONTENTS USER RESPONSE 



COMMENTS 



OPTION? 

ITD FOR 9940W? 

ITD FOR 9940Y? 

LAT = 36°47'35" 

LONG = 121° 46 '59" 



1 

16308 [ENTER] 
42800 [ENTER] 
[ENTER] 
[ENTER] 



Compute a fix. 



Lat of fix. 
Long of fix. 



The small discrepancy between this fix and the 
benchmark is due to assumptions in the fixing algorithm. 
If higher precision is required, the ASF Correction 
factor may be used (see Sample Problem 5). Note that you 
may need to use the Alternate Solution Option 2 if the 
fix obtained above is near 38°52'57"N and 116°51'11'W. 



DISPLAY CONTENTS 


USER RESPONSE 


COMMENTS 


OPTION? 




Repeat with new option 
or press A to quit. 
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TRS-80 MODEL 100 SAMPLE PROBLEM 5 



Suppose you are receiving an ITD of 12153.31 microseconds 
from 9960W and 44451.83 microseconds from 9960Y. These ITD's would 
tell you that your location is 44°15'05”N and 67°25'23"W. Entering 
the ASF Correction Tables [Ref. 5,6] with these readings, the ASF 
Correction for GRI 9960W at 44°15'N and 67°25'W is 1.5 micro- 
seconds. Similiarly, the ASF Correction for GRI 9960Y at these 
coordinates is 2.7 microseconds. Enter these corrections into your 
Model 100 and recompute your position. (Load the GRI's 9960W and 
9960Y using Option 8) . 



DISPLAY CONTENTS 


USER RESPONSE 


COMMENTS 


OPTION? 




9 


ASF Correction. 


ASF FOR 


9960W? 


1.5 [ENTER] 




ASF FOR 


9960Y? 


2.7 [ENTER] 




OPTION? 




1 


Compute a fix. 


ITD FOR 


9960W? 


12153.31 [ENTER] 




ITD FOR 


9940Y? 


44451.83 [ENTER] 




LAT = 


44°15' 26" 


[ENTER] 




LONG = 


67°26' 26" 


[ENTER] 




OPTION? 






Repeat with new option 



or press A to quit. 



These ASF Corrections have been entered into the 
computer. The range of their validity must be checked 
with the ASF Correction tables and reentered if they 
change. NOTE: If you are using the ASF Correction Tables 
and if you wish to calibrate to a benchmark position, 
you should first enter the ASF Corrections for your 
benchmark and then use the calibration Option 7 (see 
Sample Problem 4) . 
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TRS-80 MODEL 100 PROGRAM LISTING 



10 REM LORAN-C ROUTINE. REV 07-15-83. 1530 HOURS 
20 N9=15:REM N9 = NO. OF MASTER STATIONS 

30 00=1/298.26 :A0=-1;PI=4.*ATN(1) :TP=PI+PI ;RD=PI/180 :G$ (1) 



="" ;GOTO120 

32 F0RC=1T09;C$=INKEY$;NEXTC 

33 PRINT: PRINT"Press any key to continue." 

34 C$=INKEY$;IFC$=""G0T034 

35 RETURN 

40 X=INT(M0*X+.5)/M0 .-RETURN 

50 P=129. 04 398/T-. 40758+. 64576543 8E-3*T: RETURN 
60 P=2. 7 412979/T-. 3277 4624 -3*T: RETURN 
70 C$=INKEY$:IFC$=""GOTO70 
80 C=ASC(C$) :C$=CHR$(C+32*(C>90) ) 

90 FORC=lTOLEN (00$) : IFO$=MID$ (00$, 0, 1 ) THENRETURN 
100 NEXTO:GOTO70 
120 0LS:PRINT"1-L0RAN FIX 
130 PRINT"2-ALT. SOLUTION 
140 PRINT"3-DEST LAT/LON 
150 PRINT"4-HEAD & DIST 
160 PRINT"5-PREDI0T ITDs 
170 



6-TWO PT HEAD & DIST" 

7- OALIBRATE" 

8- NEW STA. IDs " 

9- ASF Oorrection" 

A- STOP 



PRINT: PRINT"OPTION?" :O0 $="1234567 89a" :GOSUB70 



180 

OLS:ONOGOSUB910, 950, 1010, 1040, 1090, 990 ,1200,190,1320,530 :GOTO120 

185 IFG1$0""THENRETURN 

190 F0=l:N=l:CLS:INPUT"lst GRI";I$ 

200 GOSUB380 :GOSUB390 : IFF0=2GOTO190 

210 F0=1:N=2: INPUT"2nd GRI " ; 1$ :G0SUB3 80 

220 IFA$=I9$THENGOSUB470 : IFF0=lGOTO250 

240 GOSUB390 : IFF0=2GOTO210 

250 F1=1:F2=1:IFG1$=G2$GOTO300 

260 IFP(1,1)=P(1,2) ANDL ( 1 , 1 ) +L ( 1 , 2 ) G0T031 0 

270 F2=-1:IFP(1,1)=P(2,2) ANDL ( 1 , 1 ) +L ( 2 , 2 ) G0T03 1 0 

280 F1=-1:IFP(2,1)=P(2,2)ANDL(2,1)+L(2,2)GOTO310 

290 F2=2: IFP( 2,1) =P (1,2) ANDL (2,1) +L( 1,2) GOTO310 

300 PRINT"ERROR: NO TRIPLET. " :GOSUB32 :GOTO190 

310 PRINT:PRINT"Working":F0RI=lT02:Pl=P(l,I) :Ll=L(l,I) ;P2=P(2,I) 
:L2=L(2,I) 

320 GOSUB330 :NEXTI :G(1)=0:G(2) =0: RETURN 
330 GOSUB650:B(I)=S0:Z(1,I)=Z1:Z(2,I)=Z2 
340 T=21282.3593*S0 
350 IFT>=537THENGOSUB50 
360 IFT<537THENGOSUB60 
370 T (I) =T+P: RETURN 

380 L=LEN(I$) :A$=LEFT$ (I$,L-1) :B$=RIGHT$ ( I $ , 1 ) :B=ASO(B$) :B$=OHR$( 
B+32*(B>90) ) : RETURN 
390 N8=l: RESTORE 
400 READI9$,N0,P0,L0 

410 FORI=1TON0:READW$ (I) , D9 ( I ) , Pi ( I ) , LI ( I ) :NEXTI 
420 IFI9$OA$GOTO450 
430 GOSUB470:IFF0=2GOTO460 
440 RETURN 
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TRS-80 MODEL 100 PROGRAM LISTING (cont.) 



450 N8=N8+1 :IFN8<=N9GOTO400 

460 PRINTI?;" IS NOT CATALOGED" : F0=2 :GOSUB32 ; RETURN 
470 FORI=1TON0:IFW$(I)=B$GOTO490 
480 NEXTI :F0=2: RETURN 
490 IFN=1THENG1$=I$;G$(1)=I$ 

500 IFN=2THENG2$=I$:G$(2)=I$ 

510 D(N)=D9(I) :X=P0;GOSUB1370;P(1,N) =X ; X=L0 :GOSUB1360 : L ( 1 , N) =V*RD 
520 X=P1(I) :GOSUB1370:P(2,N)=X:X=L1 (I) :GOSUB1360 :L (2,N) =V* 

RD: RETURN 
530 END 

540 REM DIRECT SOLUTION 

550 Z8=SIN(Z1) :Z9=COS(Zl) :P8=SIN(P1) :P9=COS(Pl) : M=-Z 8*P9 : C1=C0 * 
H:C2=C0*(l-M*M)/4 

560 D= (1-C2) *(1-C2-C1*M) ; P=C2* ( l+Cl*M/2) /D :N=P9*Z 9 

570 YY=N:XX=P8:GOSUB1260 :S1=AN:D0=S0/D;U=2* (S1-D0) :W=l-2*P*COS (U) 

:V=COS (U+D0) 

580 X=C2*C2*SIN(D0) *COS(D0*(2*V*V-1) ) : Y=2*P*V*W*SIN (D0 ) 

590 S2=D0+X-Y:S8=SIN(S2) :S9=COS(S2) : K=SQR(M*M+ (N*S9-P8*S8) "2 ) 

600 P2=ATN( (P8*S9+N*S8)/K) 

610 YY=-S8*Z8:XX=P9*S9-P8*S8*Z9;GOSUB1260 ;S3=AN 
620 H=C1*(1-C2) *S2-C1*C2*S8*C0S(S1+S1-S2) ;L2=L1+S3-H 
630 YY=-M;XX=- (N*S9-P8*S8) :GOSUB1260 : Z2=AN:RETURN 
640 REM REVERSE SOLN 

650 L3=L2-L1:P3= (P2-P1 ) /2 : P4= ( P1+P2 ) /2 

660 P6=SIN(P3) :P7=C0S(P3) :P8=SIN(P4) :P9=C0S(P4) 

670 H=P7*P7-P8*P8:L=P6*P6+H*SIN(L3/2) "2:XX=SQR(L) :GOSUB1340 ; D0=2* 
AN 

680 U=2*P8*P8*P7*P7/( 1-L) ; V=2*P6*P6 *P9 *P9/L : X=U+V: Y=U-V: T=D0/SIN ( 
D0) :D=4*T*T 

690 E=2*COS(D0) :A=D*E:C=T- (A-E)/2:N1=X* (A+C*X) :B=D+D :N2=Y* ( B+E*Y) 
;N3=D*X*Y 

700 D2=C0*C0*(N1-N2+N3)/64:D1=C0*(T*X-Y)/4:S0= (T-D1+D2) *SIN(D0) 
710 M=32*T- (20*T-A) *X- (B+4) *Y 

720 F=Y+Y-E* (4-X) :G=C0* (T/2+C0*M/64) :Q=-F*G*TAN (L3 ) /4 
730 L4= (L3+Q)/2:L8=SIN(L4) :L9=C0S(L4) 

740 YY=P6*L9:XX=P9*L8 :GOSUB1260 :T1=AN: YY=-P7*L9 :XX=P8* 
L8:GOSUB1260 :T2=AN 

750 M0=TP:X=T1+T2:GOSUB1250 :Z1=X:X=T1-T2:GOSUB1250 : Z2=X: RETURN 
760 REM FIXING ROUTINE 

770 Al=Fl*SIN(A(l) ) :Bl=COS (A(l) ) -COS (B(l) ) : C1=SIN (B ( 1 ) ) 

780 A2=F2*SIN(A(2) ) :B2=COS (A(2) ) -COS (B(2) ) : C2=SIN (B ( 2 ) ) 

790 E1=Z(1,1) :IFF1=-1THENE1=Z(2,1) 

800 E2=Z(1,2) :IFF2=-1THENE2=Z(2,2) 

810 C=Bl*C2*COS (E2) -B2*Cl*COS (El) : S=B1 *C2*SIN ( E2 ) -B2 *C1*SIN ( El ) 
820 K=B2*A1-B1*A2:R=SQR(C*C+S*S) : YY=S : XX=C :GOSUB1260 :G=AN 
830 XX=K/R:GOSUB1350 : Z=G+A0*AN : YY=B2 : XX=C2*COS ( Z-E2) + 

A2:GOSUB1260 ;S0=AN 

840 IFF2=1THENP1=P(1,2) :L1=L(1,2) 

850 IFF2=-1THENP1=P(2,2) :L1=L(2,2) 

860 Z1=Z :GOSUB550 :P0=P2:L0=L2:P=ATN(TAN(P0)/(1-C0) ) 
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TRS-80 MODEL 100 PROGRAM LISTING (cont.) 

870 P=P/RD:X=L0/RD:M0=360 :GOSUB1250 ;L=X : IFL>1 80THENL=L-360 
880 X=P:GOSUB1280 :P$=C$ :X=L :GOSUB12 80 
890 PRINT:PRINT''LAT = " ; P$ : PRINT"LONG = ";C$:RETURN 
900 REM OPT 1 

910 GOSUB185 ;CLS:F0RI=1T02 

920 PRINT"ITD FOR " ;G $ ( I ) ; ; INPUTA ; A=A+G ( I ) -D ( I ) -T ( I ) : IFABS ( A)<T ( I ) 
GOTO940 

930 PRINT"ITD NOT VALID FOR " ;G $ ( I ) :GOSUB32 :GOTO920 
940 A(I)=A/21295 .8736 zNEXTI ;GOSUB770 ;GOSUB32 tRETURN 
945 REM OPT 2 

950 IFA0=1THENA0=-1;GOTO970 
960 A0=1 

970 GOSUB770 :GOSUB32 :RETURN 
980 REM OPT 6 

990 CLS:INPUT"ORIGIN LAT dd . mmss " ; P : INPUT"ORIGIN LONG 

ddd.inmss" ;L 

1000 X=P;GOSUB1370 ;P0=X:X=L;GOSUB1360 :L0=V* 

RD;GOSUB1010 :GOSUB1040 ; RETURN 

1010 CLS:INPUT"DEST LAT dd . mmss " ; P ; INPUT"DEST LONG ddd.inmss" ;L 

1020 X=P:GOSUB1370 :P5=X:X=L;GOSUB1360 ; L5=V*RD : RETURN 
1030 REM OPT 4 

1040 Pl=P0 :L1=L0 : P2=P5 :L2=L5 :GOSUB650 

1050 M0=360 ;X=Z1/RD:GOSUB1250 :GOSUB1280 

1060 CLS:PRINT"HEADING = " ; C$ :M0=100 ; X=3443 . 917 * 

S0 ;GOSUB40 :PRINT"DISTANCE = ";X;" n. mi." 

1070 GOSUB32 : RETURN 
1080 REM OPT 5 

1090 GOSUB185 :GOSUB1170 : PRINT :F0RK=1T02 : I9=T(K) +D(K) 

1100 P2=P(2,K) ;L2=L(2,K) :GOSUB650 ; 1=3 ;GOSUB340 ; I9=I9+T (3 ) 

1110 P2=P(1,K) :L2=L(1,K) :GOSUB650 : 1=3 :GOSUB340 : I9=I9-T (3 ) 

1120 M0=100;X=I9:GOSUB40 

1130 PRINT" ITD FOR ”;G$(K);" = ";X:NEXTK 

1140 PRINT; PRINT"New lat/long or Return to menu?" ;C0$="NR" .-GOSUB70 

1150 IFC=1GOTO1090 
1160 RETURN 

1170 CLS;INPUT"LAT dd . mmss " ;P1 : INPUT"LONG ddd.mmss";Ll 
11 80 X=P1 ;GOSUB1370 ; Pl=X ; X=L1 ;GOSUB1360 ;L1=V*RD ; RETURN 
1190 REM OPT 7 

1200 GOSUBl 85 ;GOSUB1170 ; F0RK=1T02 ; I$=G1 $ ; IFK=2THENI$=G2 $ 

1210 CLS:PRINT"ITD FOR ";I$;: INPUT I9 : I9=I9-D(K) 

1220 P2=P(2,K) ;L2=L{2,K) :GOSUB650 ; 1=3 :GOSUB340 : I9=I9-T(3) 

1230 P2=P(1,K) :L2=L(1,K) :GOSUB650 ; 1=3 :GOSUB340 :T (K) =I9+T (3) +G (K) 
1240 NEXTK:RETURN 

1250 X=X-M0*INT(X/M0) :REM MOD FCTN 

1260 AN=ATN(YY/(XX-1E-9*{XX=0) ) ) -PI*(XX<0) :RETURN:REM QATN 

1270 X=ATN( (1-C0) *TAN(X) ) .-RETURN 

1280 C$=" " :IFX<0THENC$="-" :X=-X 

1290 X=X+l/7200 ;X0=INT(X) ;C$=C$+STR$ (X0) +" " 

1300 X=60*(X-X0) :X0=INT(X) :X$=STR$ (100+X0) : C$=C$+RIGHT$ (X$, 2) +" " 
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TRS-80 model 100 PROGRAM LISTING (cont.) 

1310 X=60*(X-X0) :X0=INT(X) : X$=STR$ (100 +X0 ) ; C$=C$+RIGHT$ (X$, 2) +" 

" : RETURN 

1320 GOSUBl 85 ;CLS : PRINT" ASF FOR " ;G$ (1) ; : INPUTG (1) 

1330 PRINT"ASF FOR " ;G$ ( 2 ) ; : INPUTG ( 2 ) :RETURN 

1340 ZZ=SQR(1-XX*XX) :AN=ATN (XX/ ( ZZ-lE-9* ( ZZ = 0) )) .-RETURN: REM ASIN 
1350 AN=ATN(SQR(1-XX*XX)/(XX-1E-9*(XX=0) ) ) -PI*(XX<0) :RETURN:REM 
ACOS 

1360 S=SGN(X) :X=ABS(X) : H=INT(X) :M0=1 :GOSUB1250 :V=X* 

100 ;X=V:GOSUB1250 

1365 V=S* ( (100*X/60+INT(V) )/60+H) : RETURN 
1370 GOSUB1360 ;X=V*RD;GOSUB1270 :RETURN 
5000 DATA 

"4 990 ",2,16. 4443 95, 16 9. 30312 , "X ", 11000 , 20 . 144916 , 155 . 530 97 
5010 DATA "Y", 29000, 28. 234177, 178. 17302 
5020 DATA 

"5930",2,46 .4827199,67.5537713, "X", 11000, 41. 1511 93, 6 9. 58 3 90 9 
5030 DATA "¥",25000,46.46463218,53.102816 

5040 DATA "5970",3,36.1105797,-129 .2027279, "W", 11000 ,42.4437104 , 
143.4309245 

5050 DATA "X",31000,35.0223871,-126 .32267 4, "Z", 42000, 26 3624 975,- 

128.0856445 

5060 DATA 

"5990 ",3,51. 57587 8, 122. 220224 ,"X", 110 00, 55. 2620 851, 131. 151 964 8 
5070 DATA 

"¥",27000,47.034799,119.443953, "Z", 41 000, 50. 362 9731 ,127 .2129043 
5080 DATA 

"7 930 ",3,59 .591727,45 .102747, "W", 11000, 64. 5426 58, 23 .552175 
5090 DATA 

"X", 21000, 62. 17 5964, 7. 0426 53 8, "Z ", 43 000 , 46 . 46321 8 , 53 . 102 816 
5100 DATA "*7930",3,24.1707888,-153.5853232, "X", 11000, 42. 4437104 
143.4309245 

5110 DATA "¥",30 000,26 .3624 975,-12 8.0856 445 , "Z ", 490 00 , 9 . 32457 89 , 

138.095497 

5120 DATA 

"7960",2,63.1942814,142.48319, "X", 11000, 57. 26 2021 ,152.2211225 
5130 DATA "¥",26000,55.2620851,131.1519648 

5140 DATA "7 970 ", 4, 62. 17 5964, 7. 0426 53 8, "W", 26000, 54. 4829 872,- 
8.1736312 

5150 DATA "X", 11000, 68. 380615, - 
14.2747, "¥",46000,64.542658,23.552175 
5160 DATA "Z", 60000, 70. 545261, 8.435869 
5170 DATA 

"7 980 ", 4, 30. 593 874, 85 . 100 9305 , "W", 110 00, 30. 433301 8, 90. 49436 
5180 DATA 

"X", 23 000, 26. 3155006, 97. 5000093, "¥",43000,27.0158393, 80.0653429 
5190 DATA "Z", 59000, 34. 0346081, 77. 5446654 

5200 DATA "7990 ",3,38.5220587,-16 . 4306159 , "X" , 11000 , 35 . 31207 87 ,- 
12.3130245 
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TRS-80 MODEL 100 PROGRAM LISTING (cont.) 



5210 DATA ”¥",29000,40.582095,-27 .520152, "Z", 47000, 42. 0336515, - 

3.1215512 

5220 DATA 

"8970 ",3,39. 5107 54, 87. 291214 , "W" , 11000 , 30 . 593 874 , 85 . 1009305 
5230 DATA 

"X", 28000, 42. 425060 3, 76. 4933 862, "¥",44000,48.3649844 ,94.3318469 
5240 DATA 

"9940 ",3,39. 3306621, 11 8. 495637, "W", 11000, 47. 0347 99, 11 9. 443 953 
5250 DATA 

"X", 27 000, 3 8. 4656 99, 122. 2944529, "¥",40000,35 .191818,114.4817435 
5270 DATA 

"9960",4,42.4250603,76.4933862, "W", 11000, 46. 48271 99, 67. 5537713 
5280 DATA 

"X", 25000, 41. 1511 93, 6 9. 583909, "¥",39000,34.0346081,77.5446654 
5290 DATA "Z ", 540 00 , 39 . 5107 54 , 87 . 291214 

5300 DATA "9970",4,24.4803597,-141 .1930303, "W", 11000, 24 .1707888, 
153.5853232 

5310 DATA "X", 30000, 42. 4437104 ,-143.4309245 ,"¥",55000,26.3624975 
128.0856445 

5320 DATA " Z " , 7 5000 , 9 . 32457 89 , -13 8 . 095497 

5330 DATA " 9990 ",3,57. 09126 5, 17 0. 15067 89, "X", 11000 ,52. 494404, - 

173.1048974 

5340 DATA 

"¥",29000,65.1440306,166.531255 , "Z ", 43000 , 57 . 262021 , 152 . 2211225 
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V. MEMORY REQUIREMENTS 



Memory (bytes) 
for ; 


HP-75C 


PC-1500 
(TRS-80 PC-2) 


TRS-80 
MODEL 100 


Program 


11 A1 


7189 


7220 


Variables 


4920 


7 


47 86 


TOTAL 


12667 


7 


12006 
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5. The following tables of ASF Corrections are available from the 
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DMA 

Stock Number 

LCPUB2211100C 
LCPUB2211200C 
LCPUB2211300C 
LCPUB2211400C 
LCPUB2212100C 
LCPUB2212200C 
LCPUB2212300C 
LCPUB2212400C 



Title 

East Coast Canada (Pairs 5930-X,Y) 
Northeast USA (Pairs 9960-W,X, Y, Z) 
Great Lakes (Pairs 8970-X,Y,Z) 
Southeast USA (Pairs 7980-W,X, Y, Z) 
West Coast of USA (Pairs 9940-W,X,Y) 
West Coast Canada (Pairs 5990-X,Y,Z) 
Gulf of Alaska (Pairs 7960-X,Y) 

North Pacific (Pairs 9990-X,Y,Z) 
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Appendix: LORAN-C STATION DATA 



The following list contains the pertinent parameters for each 
Loran-C station pair. This list was compiled from the data in 
Reference 4. Each column contains the following information: 

1. The Loran-C station pair designator. 

2. The coding delay. 

3. The master station latitude. 

4. The master station longitude. 

5. The slave station latitude. 

6. The slave station longitude. 

In this list, positive longitudes are West, negative 
longitudes are East, positive latitudes are North and negative 
latitudes are South. In columns 3 through 6 the latitudes and 
longitudes appear to be in decimal form, but the actual format is 
DDD.MMSSFFF where 

DDD designates degrees, 

MM designates minutes, 

SS designates seconds, and 

FFF designates thousandths of seconds. 
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LORAN-C STATIONS 



QEl 




4990X 


11000 


4990Y 


29000 


5930X 


11000 


5930Y 


25000 


5970W 


11000 


5970X 


31000 


5970Z 


42000 


5990X 


11000 


5990Y 


27000 


5990Z 


41000 


7930W 


11000 


7930X 


21000 


7930Z 


43000 


*7930X 


11000 


*7930Y 


30000 


*7930Z 


49000 


7960X 


11000 


7960Y 


26000 


7970W 


26000 


7970X 


11000 


7970Y 


46000 


7970Z 


60000 


7 980W 


11000 


7980X 


23000 


7980Y 


43000 


7 9 80Z 


59000 


7990X 


11000 


7990Y 


29000 


7990Z 


47000 


8970W 


11000 


8970X 


28000 


8970Y 


44000 


9940W 


11000 


9940X 


27000 


9940Y 


40000 


9960W 


11000 


9960X 


25000 


9960Y 


39000 


9960Z 


54000 


9970W 


11000 


9970X 


30000 


9970Y 


55000 


9970Z 


75000 


9990X 


11000 


9990Y 


29000 


9990Z 


43000 



MS-LAT 

16.4443950 
16.4443950 
46.4827199 
46. 4827199 
36.1105797 
36.1105797 
36.1105797 
51 .575 87 80 
51 .575 87 80 
51 .575 87 80 
59.5917270 
59.5917270 
59.5917270 
24.1707888 
24 .1707888 
24.1707 888 
63.1942814 
63.1942814 
62.1759640 
62.1759640 
62.1759640 
62.1759640 
30.5938740 
30.593 8740 
30.593 8740 
30.5938740 
3 8.5220587 
38.5220587 
38.5220587 
39.5107540 
39.5107540 
39.5107540 
39. 3306621 
39.3306621 
39. 3306621 
42.4250603 
42.4250603 
42.4250603 
42.4250603 
24.4803597 
24.4803597 
24 .4803597 
24.4803597 
57.0912265 
57.0912265 
57.0912265 



MS LON 

169.3031200 
169. 3031200 

067.5537713 

067.5537713 
-129.2027279 
-129.2027279 
-129.2027279 

122.2202240 

122.2202240 

122.2202240 

045.1027470 

045.1027470 

045.1027470 
-153.5853232 
-153.5853232 
-153.5853232 

142.4831900 
142.4831900 
+007. 0426538 
+007.0426538 
+007.0426538 
+007.0426538 

085.1009305 

085.1009305 

085.1009305 

085.1009305 
-016.4306159 
-016.4306159 
-016.4306159 

087. 2912140 

087.2912140 

087. 2912140 

118.4956370 

118.4956370 

118.4956370 

076.4933862 

076.4933862 

076 . 4933862 

076.4933862 
-141.1930303 
-141.1930303 
-141.1930303 
-141.1930303 
+170 .1506789 
+170.1506789 
+170 .1506789 



S S . LA T 

20.1449160 
28.2341770 
41.1511930 
46.4632180 
42.4437104 
35.0223871 
26.3624975 
55.2620851 
47.0347990 
50.3629731 
64.5426580 
62.1759640 
46.4632180 
42.4437104 
26.3624975 
09. 32457 89 
57. 2620210 
55.2620851 
54.4829872 
68.3806150 
64.5426580 
70.5452610 
30.4333018 
26.3155006 
27.0158393 
34.0346081 
35.3120787 
40.5820950 
42.0336515 
30.593 8740 
42.4250603 
48. 3649844 
47.0347990 
38.4656990 
35.19181 80 
46.4827199 
41.1511930 
34.0346081 
39.5107540 
24.1707888 
42.4437104 
26 .3624975 
09. 32457 89 
52.4944040 
65.1440306 
57.2620210 



SS LON 

155.5309700 
178.1730200 
069.5839090 
053 .1028160 
-143.4309245 
-126.3226741 
-128. 0856445 
131.1519648 
119.4439530 
127.2129043 
023.5521750 
007.0426538 
053.1028160 
-143.4309245 
-128. 0856445 
-138. 0954970 
152.2211225 
131.1519648 
-008. 1736312 
-014 .2747000 
+023.5521750 
+ 008.4358690 
090.4943600 
097.5000093 
080.0653429 
077.5446654 
-012.3130245 
-027 .5201520 
-003.1215512 

085.1009305 

076 .4933862 
094.3318469 
119.4439530 
122.2944529 
114.4817435 

067.5537713 
069.5839090 
077.5446654 

087.2912140 
-153.5853232 
-143.4309245 
-128. 0856445 
-138. 0954970 
-173.1048974 
+166.5312550 
+152.2211225 



EAST AND SOUTH ARE MINUS 
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